Membuat Form Yang menarik di delphi 7

Sebagian orang(programmer) menyukai tampilan user interface yang fancy(menarik), beda dengan bentuk window biasa. Bentuk bias bulat, ellipse, atau bentuk-bentuk lainnya. Tetapi yang sangat menarik bentuk form yang mengikuti gambar. Delphi menyediakan kemudahan untuk membuat tampilan seperti ini. Yang perluh kita siapkan adalah sebuah gambar yang akan menjadi background dari form. Gambar tersebut memiliki bagian background yang akan dijadikan tansparan. Contoh gambar seperti dibawah ini.

Gambar seperti diatas dibuat menggunakan aplikasi seperti adobe photo shop versi 7 ke paling baru.

Cara membuat form transparan dengan tampilan seperti diatas sebagai berikut:

Ø  Pada form , tambahkan sebuah komponen Image yang ada pada pallete additional yang akan menjadi background

Ø  Ubah properties Borderstyle pada form menjadi bsNone, agar form tidak memiliki border

Ø  Ubah properties Autosize pada image dan form menjadi true agar menyesuaikan besar dan kecil ukuran image

Ø  Tambah komponen lain yang dibutuhkan sesuai dengan program

Ø  Ubah properties transparantcolor pada form menjadi true, agar form bias transparan

Ø  Klik dua kali pada form lalu ketikan listing sebagai berikut

procedure TForm1.FormCreate(Sender: TObject);

begin

TransparentColorValue:=image1.Canvas.Pixels [0,0];//mengambil warna dari image

end;

Ø  Klik image sekali selelah itu pada event ganti onmousedown sehingga muncul seperti listing dibawa ini

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

Begin

//untuk menggeser form dengan parameter  $F012

ReleaseCapture;

Perform(WM_SYSCOMMAND,$F012,0);

end;

jalankan form yang sudah dibuat gambar seperti dibawa ini