Dalam membuat aplikasi, bukan hanya kehandalan aplikasi dalam mengolah data saja yang perlukan, penampilan juga perlu di perhatikan. Dengan tampilan yang cantik maka dimungkinkan user akan lebih tertarik dengan program yang kita buat. “Pandangan pertama begitu menggoda, selanjutnya?? ………… he hee”.

Untuk membuatnya dibutuhkan sedikit ketrampilan dalam memainkan program grafis. Saya menggunakan adobe photoshop CS2 untuk mengolah image, dan Delphi 7.0 untuk membuat aplikasinya.

Berikut langkah-langkahnya:

Langkah I : Adobe Photoshop

1. buat tampilan form sesuai selera.
2. set warna background #FF0000, dan hindari warna #FF0000 pada form facenya, berikut contoh design yang saya buat :



3. Save as simpan ke tipe file .bmp

Langkah II : Design di Delphi.

1. Buat Form baru
2. setting propertiesnya sbb.
   • AlphaBland = False
   • AlphaBlandValue = 0 (semakin kecil nilainya maka akan semakin transparan, anda bisa mengisi nilainya antara 1 – 100)
   • BorderStyle = bsNone
   • Color = clRed
   • Name = formMenu
   • Position = poDesktopCenter
   • TransparentColor = True
   • TransparentColorValue = clRed (harus sama dengan Color)
   • WindowState = wsNormal
3. tambahkan object Image dari tab Additional
4. Atur propertiesnya sbb :
   • Picture = Ambil image .bmp yang sudah dibuat.
   • Transparent = True
5. tambahkan tombol close

Pada event onclik ketik program berikut :

procedure TformMenu.BitBtn1Click(Sender:TObject)

Begin

Application.Terminate;

End;

6. simpan project anda.
7. run program.

Langkah III : Program

Agar title bar bisa digeser, layaknya form:

1. Tambahkan Kode berikut di bawah Type :

procedure WMNCHitTest(var msg : TWMNCHitTest); message WM_NCHitTest;

2. Tambahkan Kode berikut:

procedure TformMenu.WMNCHitTest(var msg : TWMNCHitTest);

begin

inherited;

if (msg.Result = htClient) then

if Msg.YPos < Top + 40 then

msg.Result := htCaption;

end;

3. run program.

Mudah bukan, cara mudah dengan hasil yang cantik. selamat mencoba!! download sample