Berikut ini saya akan membahas tentang bagaimana cara membuat form yang unit yang di buat
dengan dua cara,pertama yang di buat dari form Delphi yang kedua form yang di buat dari
gambar.anda bisa mendisaign sendiri jika anda sudah tahu bagaimana cara membuatnya.bagi
anda yang ingin mengubah tampilan program Delphi anda,biar tambah cantik tambahkan shape
pada lingkaran,anda bisa mempelajari source code di bawah ini dan bagi anda yang sudah mahir
jangan di lanjutkan lagi untuk membaca tutorial ini.pertama buka Delphi anda dan buat form
baru,ketikan kode di bawah ini.
Gambar 1.contoh form yang di buat dari from Delphi
Kode selengkapnya seperti di bawah ini.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, FileCtrl, DBCtrls, ExtDlgs, DB,
ADODB, Grids, DBGrids;
procedure Label14Click(Sender: TObject);
procedure Label13Click(Sender: TObject);
private
{ Private declarations }
public
procedure bulat (var a: twmnchittest); untuk menjadikan from menjadi tebagi-bagi
message wm_nchittest;
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
/tambahkan kode ini pada bagian ini
procedure TForm2.bulat(var a:twmnchittest);
begin
inherited;
if a.Result = htclient then a.Result := htcaption;
end;
/inilah kode program yang membuat beberapa bagian form yang di bagi yang terletak pada form
create.klik dua kali pada form desain anda.ketikan perintah berikut ini.
procedure TForm2.FormCreate(Sender: TObject);
var a,b :hrgn;
begin
a :=createRectRgn(1,3,width div 4,height div 5); membuat segi empat
b:=createEllipticRgn(width div 4,1,width div 2,height div 3); membuat bulatan
combinergn(a,a,b,rgn_or);
b:=createRectRgn(width div 2,1,width,height div 3); membuat segi empat
combinergn(a,a,b,rgn_or);
b:=createRoundRectRgn(2,1*(height div 3),width div 3,height,480,8180);bulat
combinergn(a,a,b,rgn_or);
b:=CreateEllipticRgn(width div 3,height div 6,width,height); lonjong
combinergn(a,a,b,rgn_or);
setWindowRgn(handle,a,true);
end;
Simpan project anda.
Pada form yang ini anda terselebih dahulu membuat gambar dari photoshop.yang
kemudian akan di tampilkan pada program anda.buka photoshop-klik new biarkan background
warna putih-klik kanan pada rectangle tool pilih custom shape tool.pada toobar klik pada shape
dan pilih gambar yang anda inginkan dan klik double,kemudian drag /tahan kursor anda dan
besarkan gambar tadi.jika ingin menganti warna klik pada gambar tadi dan pada menu tool
sebelah kanan pilih style yang sesuai dengan keinginan anda.setelah gambar siap di buat dan
simpan gambar tersebut dengan type jpeg.
Untuk meletakkan pada program anda,buka program Delphi anda buat form baru.pada
menu toolbar pilih additional—kemudian pilih komponen image dan letakan pada form
anda.cara seperti ini sama halnya dengan meletakan gambar pada form.klik image yang ada di
form,pada properties klik picture pada tanda …(titik-titik) kemudian klik load,cari gambar
dimana anda menyimpan gambar yang anda buat dari photoshop tadi.klik ok.
Untuk kode selengkapnya.lihat di bwaha ini.
Cara Kedua.
Gambar 2.contoh form di buat dengan image
Kode program yang di buat dari image
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls;
procedure Label4Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
private
{ Private declarations }
public
/untuk memindahkan form jika form di pindahkan ke kiri-kanan-atas-bawah.(klik dan tahan)
procedure pindah (var a: twmnchittest);
message wm_nchittest;
{ Public declarations }
end;
var
Form3: TForm3;
Implementation
uses Unit1, Unit2, Unit4;
{$R *.dfm}
procedure Tform3.pindah(var a : twmnchittest);
begin
inherited;
if a.Result = htclient then a.Result := htcaption; yang membuat form bisa dipindahkan
end;
/ inilah kode program yang membuat gambar jadi transfarant yang terletak pada form create
procedure TForm3.FormCreate(Sender: TObject);
begin
image1.Transparent :=true;
form3.Color :=clwhite;
form3.TransparentColorValue :=clwhite;
form3.TransparentColor :=true;
end;
Simpan Project Anda.
