Membuat konfirmasi sebelum keluar di delphi 7

4/30/15

ok inilah yang sekarang menjadi topik yang akan kita bahas. ikuti cara cara di bawah ini...... :D

• buka delphi 7
• pada program yang telah anda buat klik Events pada object Inspector
• klik 2 kali pada on close dan masukkan kode di bawah ini

IF MessageDlg('Are you sure???',mtConfirmation,[mbYes,mbNo],0)=mryes then

  Application.Terminate

else

  Action:=caNone;

end;

• untuk lebih jelasnya lihat gambar berikut

•  pada tulisan berwarna merah ganti sesuai keinginan anda...
• jalankan. Enjoy :D
• GOOD LUCK!

komentar (1) | | Read More...

membuat form delphi tidak bisa di resize

3/14/15

langsung saja ya!. saya kehabisan kata kata untuk kali ini... gk tau lagi mau ngomong apa...

• klik pada form yang akan di nonaktifkan resize nya..
• klik bagian events
• nah pada bagian samping OnCanResize klik dua kali.
• lalu isikan kode ini

resize:=false;

• kalau bingung lihat gambar ini
  
   
• dan silahkan di coba.....

cara menonaktifkan resize di delphi

cara membuat form tidak bisa diperbesarkan atau dikecilkan

komentar | | Read More...

membuat form login di delphi

hehehe posting lagi ah.... sekarang saya akan posting tentang bagaimana caranya membuat form login di delphi. cukup sederhana sekali. yuk ikuti tutorialnya dibawah ini,,,,,

• buka delphi teman teman.....
• buat aplikasi baru
• kecilkan aplikasinya sesuai dengan kemauan

mulai.......

1. tambahkan 2 label dua button dan dua edit. lihat gambar di bawah
   
2. seperti contoh diatas ya!!!!
3. lalu tambahkan form baru. form barunya minimize dahulu
4. klik button login. dan isi kode ini di bawah begin

if (Edit1.Text='admin') and (Edit2.Text='password') then
begin
MessageBox(0,'Log In Sukses','information',MB_OK+MB_ICONINFORMATION);
Form1.Hide;
Form2.Show;
end
else
MessageBox(0,'Log In Gagal','error',MB_OK+MB_ICONERROR);

end;

• ganti user dan passwordnya sesuka hati
• lalu ke bagian atas. dan tambah unit2 pada uses. lihat gambar dibawah
  
• dan pada button cancel. klik 2kali lalu isi kode ini di bawah begin

application.terminate; 

selesai.... selamat berkreasi
saya mohon maaf apabila ada kesalahan kata atau penulisan. karena saya amatiran :D

komentar | | Read More...

cara menghilangkan status/icon aplikasi di taskbar dengan delphi 7

1/24/15

menghilangkan icon di taskbar merupakan cara yang mudah hanya tinggal menambah kode di bawah ini saja.

ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
  ShowWindow(Application.Handle, SW_SHOW);

copas kode diatas lalu klik dua kali pada form atau bisa juga pada object inspector lalu bilih  tab events lalu klik dua kali di samping on create. lalu masukkan kode diatas seperti gambar dibawah ini

semoga bermanfaat.

komentar | | Read More...

Menghilangkan border form delphi 7

1/20/15

caranya

ubah borderstyle menjadi bsnone.
hasilnya akan menjadi.....

sekian, terimakasih telah berkunjung. dan semoga bermanfaat.

komentar | | Read More...