Form Cantik

http://www.stillcetek.com/2007-06-21/form-cantikdengan-delphi-photoshop.html Form Cantik Dengan Delphi & Photoshop

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. o AlphaBland = False o AlphaBlandValue = 0 (semakin kecil nilainya maka akan semakin transparan, anda bisa mengisi nilainya antara 1 – 100) o BorderStyle = bsNone o Color = clRed o Name = formMenu o Position = poDesktopCenter o TransparentColor = True o TransparentColorValue = clRed (harus sama dengan Color) o WindowState = wsNormal 3. tambahkan object Image dari tab Additional 4. Atur propertiesnya sbb : o Picture = Ambil image .bmp yang sudah dibuat. o 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.