Membuat Form Unik Dengan Delphi 7.0 Yohanas auri H2nku_83@ yahoo.com http://trading-valas.wetpaint.com
Lisensi Dokumen:
Copyright © 2003-2007 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
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. Cara Pertama.
Gambar 1.contoh form yang di buat dari from Delphi Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
1
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 Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
2
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 Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
3
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; end;
yang membuat form bisa dipindahkan
/ 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.
Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
4
BIOGRAFI PENULIS Yohanas auri,lahir di tebo,jambi 22 mei 1980.menamatkan SMU di SMUN 1 Tebo pada tahun 1999,dan menyelesaikan D1 di Lembaga komputer prima citra jambi jurusan komputer akuntansi tahun 2001,sekarang sedang menyelesaikan S1 di STIKOM DB JAMBI jurusan sistem informasi.pengalaman bekerja private bahasa inggris, programmer free lance,webprogrammer.bahasa pemrograman yang dikuasai Visual basic,Delphi,ASP,dan sekarang lagi belajar PHP yang mantap tenan buat web site.saya berharap suatu saat nanti bisa mempunyai usaha sediri seperti Nofriza Nindiyasari yang bergerak di bidang development dan software house. AMIINN…!! Informasi lebih lanjut URL : http://trading-valas.wetpaint.com Email :
[email protected] Bagi anda yang ingin belajar valuta asing bisa lihat di http://trading-valas.wetpaint.com
Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com
5
