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...

Membuat tulisan dot matrix dengan delphi 7

link download ada di bagian bawah postingan.
membuat tulisan dot matrix tidaklah susah dan sangat sederhana seperti langkah langkah berikut.

• buka delphi 7
• klik open
• buka komponen dm d7 yang sudah di ekstrak tadi.
• lalu buka file dmatrix10.dpk.
• klik compile lalu instal.
• close jendela package

 cara menggunakan komponen dot matrix

• siapkan komponen dot matrix dan komponen timer
• klik 2 kali pada komponen timer lalu ke atas dulu ubah seperti gambar berikut
  
   
• lalu ke bawah lagi isikan kode ini pada komponen timer. 
• const
  AnimatedStr ='           welcome to my program. keep smile';
  begin
  inc (NumOfChar);
  DotMatrix5x71.Value := Copy (
  AnimatedStr, NumOfChar, DotMatrix5x71.NumberOfDigits);
  if (NumOfChar > Length (AnimatedStr)) then
  NumOfChar := 1;
• tulisan berwarna merah bisa diganti sesuka agan.
• jalankan program. taraaaaa sudah jadi deh
• untuk mempercepat jalan kalimatnya. klik 1 kali komponen timer lalu pada tab properties ubah interval menjadi lebih kecil contohnya menjadi 400. semakin kecil angka maka semakin cepat.
• lihat gambar berikut ini.
  

Link download:
Download

komentar | | Read More...

Download Alphaskin terbaru v8.48 lengkap dengan tutorial instal

Apa kabarnya sahabat blogger. rasanya sudah lama gk ngepos. tahu Alphaskin kan?, ya komponen ini memang dibuat untuk mendesain form di delphi menjadi lebih menarik. kalau gak pakai skin rasanya gemana gitu. nah kali ini saya akan membagikan Alphaskin versi 8.48 sekaligus cara instal komponennya. simak tulisan berikut ya guys......



ikuti langkah langkah berikut ini

• ekstrak dulu komponen di dalam arsip

• lalu copy folder D7 dan skin ke hardisk C:\Program Files\Borland\Delphi7\Lib.

•  buka program delphi 7 agan.

• klik seperti yang ada dalam kotak warna merah

   

•  lalu masuk ke C:\Program Files (x86)\Borland\Delphi7\Lib\D7 buka file dengan nama acntd7_r.dpk. setelah terbuka lalu klik compile. buka lagi seperti tutorial diatas dan klik file dengan nama acntd7.dpk, lalu klik compile dan instal lebih jelasnya seperti gambar berikut.
  
  
• tutup kedua jendela tersebut. jika ada jendela confirm muncul klik No saja.
• cara menggunakannya seperti pada gambar berikut
  
• pada kotak nomor 3 silahkan pilih tempat folder skin. pada tutorial ini skin kita tempatkan di C:\Program Files (x86)\Borland\Delphi7\Lib\skin.
• lalu pilih nama skinnya yang terdapat pada kotak nomor 4.
• dan hasilnya akan tampak seperti di bawah ini.
  
  bagaimana?. mudah bukan?. selamat berkreasi

link download:
Download

komentar (2) | | Read More...