Trik Desain Form Delphi 7

Trik Desain Form Delphi 7

1.Form Keren Untuk Log In
Langsung saja kita mulai step by step membuat form keren ini:

1.    Buka Delphi 7 anda dan buatlah projek baru Langkah ini dapat diakses melalui File >  New >  Application
2. .Properti Form Borderstyle = ‘bsNone’ (untuk border form ditiadakan) ; Color = ‘clWhite’ ; TransparentColor = ‘true’  ; TransparentColorValue = ‘clWhite’ (jika anda menambahkan warna putih pada form anda, warna tersebut tidak terlihat).

      

   

     3. Tambahkan komponen image pada form. Komponen ini terletak pada tab Additional. 
         Untuk Properti Image Align = alClient ; Transparent = ‘true’.

Gambar yang akan anda tambahkan ini nantinya akan menjadi background sekaligus bentuk dari form.  Agar gambar bisa transparan pada form, anda dapat membuat gambar dengan format .gif transparan atau .bmp dengan warna background khusus (background harus berwarna putih atau #FFFFFF) Contoh gambar :  

    3. Untuk menambah kan gambar, pada properti picture klik tombol 3 titik lihat gambar yang dilingkari 

        merah

  

        Sehingga  keluar kotak akan keluar kotak Picture Editor ditunjukan seperti gambar dibawah, klik load 

        untuk menambahkan. Lalu klik ok.

      4. Tambahkan komponen Edit (terletak pada tab Standard)  atau DBEdit 

           (terletak pada tab Data Controls), komponen ini terdapat pada tab Additional.

           Letakan 2 komponen pada form,sesuaikan dengan tulisan. Untuk DBEdit yang 

          diletakan pada sisi kanan password,  agar text tidak terlihat ketika diketikan pada 

          DBEdit tersebut anda bisa set properti PasswordChar dengan ‘*’.

 

      5. Kemudian, letakan juga komponen Button (terletak pada tab standard) atau Bitbtn 

          (terletak pada tab Additional. Jika anda menambahkan Bitbtn, anda bisa menambahkan

          Icon pada sisi kanan bitbtn. Untuk memunculkan icon tersebut, anda bisa tambahkan dengan 2 cara, 

          cara yang pertama yaitu icon yang sudah disediakan delphi, pada properti Kind, set sesuai keinginan

          anda, cara kedua yaitu  icon yang kita sediakan sendiri, pada properti Glyph, Load icon yang anda

          kehendaki ( icon yang disediakan dengan format .bmp).

       6. Save all ( save as, save project as).

       7..Kemudaian run program, atau tekan F9, hasilnya terlihat pada gambar.

       8. Jika anda menginginkan form tersebut dapat di drag , tambahkan procedure source kode berikut pada
           bagian ‘type’ atau ‘private’ atau bisa juga meletakan pada ‘public’, tergantung  pada privasi anda
          (hahay….) 

procedure WMNCHitTest(var msg : TWMNCHitTest);message
WM_NCHitTest;
2.Pada bagian implementasi tambahkan kode berikut:
procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest);
begin
inherited;
if (msg.Result = htClient) then
if Msg.YPos < Top + 40 then
msg.Result := htCaption;
end;

Sebenarnya anda dapat juga menggunakan skin untuk membuat form keren ini. Namun saya tidak menyarankan penggunaan skin ini. Selain program menjadi berat diakibatkan oleh penggunaan komponen tambahan bisa itu berupa librari atau ocx (ActiveX), kompabilitas dengan komponen standar Delphi juga menjadi kendala. Bukankah lebih baik memodifikasi sesuatu yang standar daripada harus menggunakan suatu fitur embeded !?
Sekian dulu trik dari saya, semoga bermanfa’at bagi pengunjung blog ini atau pembaca, Komentar, saran dan pertanyaan mengenai trik ini bisa melalui komentar pada blog ini