Alqur'an Dalam Versi Microsoft Word

Al-Qur’an Versi Microsoft Word ini berisi Al-Qur’an dalam bahasa Arab lengkap dengan barisnya. Bagi anda yang ingin mengutip ayat Al-Qur’an dan meletakkannya di Microsoft Word silahkan download Alqur’an dalam Microsoft Word ini.

Silahkan download dari link di bawah ini:

DOWNLOAD DISINI

Berikut ini adalah aplikasi kecil yang berisi contoh membuat:

1. Form yang dipanggil dari tombol tapi juga memiliki icon sendiri yang muncul di taskbar

Berikut ini adalah kode pada form yang akan dibuatkan icon pada taskbar. Pemanggilannya dilakukan oleh tombol (button)  pada form utama:

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
 
type
TForm1 = class(TForm)
Label1: TLabel;
private
procedure CreateParams(var Params: TCreateParams); override;
public
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.DFM}
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do begin
ExStyle := ExStyle or WS_EX_APPWINDOW;
WndParent := GetDesktopwindow;
end;
end;
end.

2. Form yang tidak memiliki Caption

Berikut ini adalah code pada form yang akan dihilangkan caption-nya:

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;
 
type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.DFM}
 
procedure TForm2.CreateParams(var Params: TCreateParams);
//Captionless form
begin
  inherited CreateParams(Params);
 
  Params.Style := Params.Style
                     AND NOT WS_CAPTION;
 
end;
 
 
 
procedure TForm2.FormCreate(Sender: TObject);
var p:TPanel;
begin
BorderStyle:=bsNone;
 
p:=TPanel.Create(Form2);
p.Align := alClient;
p.Caption:='Use ALT-F4 to close this form!';
p.Parent:=Form2;
 
end;
 
end.

3. Form yang memiliki tepi yang timbul

Berikut ini adalah code pada form yang tepinya akan dibuat timbul:

unit Unit3;
 
interface
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
 
type
TForm3 = class(TForm)
private
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public declarations }
end;
 
var
Form3: TForm3;
 
implementation
{$R *.DFM}
 
procedure TForm3.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle OR WS_EX_OVERLAPPEDWINDOW;
end;
end.

4. Form Transparan

Berikut ini adalah code pada form yang akan dijadikan transparan:

unit Unit4;
 
interface
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
 
type
TForm4 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormPaint(Sender: TObject);
procedure Panel1DblClick(Sender: TObject);
private
procedure CreateParams(var Params: TCreateParams); override; { Private declarations }
procedure WMNCHitTest(var Msg: TWMNCHitTest); message wm_NCHitTest;
public
{ Public declarations }
end;
 
var
Form4: TForm4;
 
implementation
{$R *.DFM}
 
procedure TForm4.CreateParams(var Params:TCreateParams);
//make it trabsparent - part 1
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle OR WS_EX_TRANSPARENT;
end;
 
procedure TForm4.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
if Msg.Result = htClient then Msg.Result := htCaption;
end;
 
procedure TForm4.FormCreate(Sender: TObject);
//make it trabsparent - part 2
begin
Form4.Brush.Style := bsClear;
Form4.BorderStyle := bsNone;
end;
 
procedure TForm4.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
//move form by moving the Panel
begin
ReleaseCapture;
SendMessage(Form4.Handle, WM_SYSCOMMAND, 61458, 0);
end;
 
procedure TForm4.FormPaint(Sender: TObject);
begin
refresh;
end;
 
procedure TForm4.Panel1DblClick(Sender: TObject);
begin
Form4.Close;
end;
 
end.

Dengan membuat prosedure CreateParams, kita bisa membuat aneka gaya yang berkaitan dengan form aplikasi. Bagi sobat2 yang ingin mengkombinasikan prosedur ini dengan aplikasi yang sobat buat mungkin bisa digunakan prosedur di atas. Untuk lebih memudahkan mencoba, silahkan sobat download sourcenya lengkap juga dengan aplikasinya yang sudah jadi executable dari link download di bawah ini. Selamat mencoba…

DOWNLOAD SOURCE CODE-nya DISINI

DOWNLOAD EXE-nya DISINI

Selamat Datang di Blog M@smidar

Para Netter yang terhormat, Saya ucapkan selamat datang di blog ini. Silahkan baca atau berikan saran yang sifatnya membangun. Terima Kasih… Selamat membaca dan menikmati