Membuat Form Cantik Tanpa Skin

Dalam membuat sebuah program terkadang sangat kurang menarik dilihat jika  yang ditampilkan biasa - biasa saja namun untuk membuat yang menarik tentu saja kita menggunakan component - component dari sebuah program tersebut .

Tapi menurut saya tidak perlu kita harus menggunakan componet tersebut karena dengan sedikit keahlian mendesain sebuah image kita dapat membuat sebuah program dengan tampilan yang tidak kalah menarik dengan component tersebut.

Ok, kita langsung saja mulai bagaimana cara membuat form yang menarik pertama yang harus anda lakukan adalah siapkan gambar terlebih dahulu atau anda bisa membuat sendiri menggunakan MsPaint, Photoshop, Corel ataupun yang lain setelah selesai mendesain anda buka Program Delphi

- Rubah Properties BorderStyle menjadi bsNone

- Rubah autosize menjadi true

- setelah itu tambahkan component Image pilih Additional

- Lalu anda load image melalui properties cari menu Picture

- Klik Form1 dan rubah properties color menjadi warna yang anda suka

- Rubah Transparentcolor menjadi warna yang anda pilih pada properties color

- Rubah Transparentcolor menjadi true

Untuk melihatnya silahkan anda tekan F9,, tampilan bisa anda lihat cukup menarik bukan ....???? tetapi masih ada yang kurang dari tampilan tersebut ternyata form tidak bisa di geser kemana - mana dan bagaimana agar form dapat di geser ...??? hmmm,,, pertanyaan yang bagus untuk membuat form agar dapat digeser silahkan anda klik image yang terdapat pada form setelah itu anda pilih Tab Event pilih OnMouseDown lalu anda klik 2x setelah itu anda ketikan coding berikut.

Procedure Tform1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

         ReleaseCapture;

         Perform(WM_SYSCOMMAND,$f012,0);

end;

end.

Selesai sudah untuk melihat hasilnya silahkan anda Run atau tekan F9 apa yang terjadi ternyata form dapat digeser kemana - mana.

Download Source code

 

Rounded Form

Seperti biasanya delphi akan membuat form berbentuk segi empat,, dan bagaimana cara membuat agar form berbentuk lingkaran atau elips..???
Disini saya akan memberikan contoh bagaimana cara membuatnya klik 2x pada form setelah itu ketik syntax berikut ini :

procedure TForm.1.FormCreate(Sender: TObject);
var
Region : Hrgn;
begin
Region := CreateEllipticRgn(1,1,200,200);
SetWindowRgn(Handle, region, true);
end;

Untuk merubah bentuk form silahkan anda rubah nilai yang terdapat pada baris Region:=CreateEllipticRgn(1,1,200,200);" tanpa tanda kutip. Selamat mencoba semoga bermanfaat.

Referensi http://www.klik-kanan.com

Membuat Form Gradient Pada Delphi

Nih ... catatan ku semalam waktu ga bisa tidur Qu searching om google bagaimana cara membuat form gradient pada delphi ternyata Qu menemukan jawabannya,, untuk singkatnya langsung ja copas neh syntax oceee ....

procedure TForm1.FormPaint(Sender: TObject);
var
Row, Ht: Word;
IX: Integer;
begin
iX :=200 ;
Ht:=(ClientHeight + 512) div 256;
for Row := 0 to 512 do
begin
with Canvas do begin
Brush.Color := RGB(Ix,150,row);
FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
IX :=(IX-1);
end;
end;
end;

untuk mengganti menjadi warna lain ubah dibagian ini
Brush.Color := RGB(Ix,150,row);

RGB merupakan kombinasi warna Red, Green, Blue. Nilai yang bisa Anda masukkan pada RGB yaitu 0 sampai 255.


Referensi http://www.klik-kanan.com