TIPS DELPHI

Saya akan berbagi beberapa tips dan trik belajar pemrograman Delphi. Mudah-mudahan bermanfaat. Semua tips di bawah ini saya ambil dari web saya www.belajardelphi.com.

FILTER INPUT (HANYA ANGKA SAJA)
Buat aplikasi baru lalu tambahkan sebuah komponen Edit1.

Click Edit1 lalu pada Object Inpector double click pada "OnKeyPress"

Masukkan script di bawah ini :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in[#8,#48..#57]) then key := #0;
end;
Maka ketika aplikasi dijalankan, User hanya boleh memasukkan data pada Edit1 berupa angka saja. Kalau Anda beri #8 artinya User boleh menghapus data yang ditulisnya dengan menekan Back Space

MEMANGGIL CALCULATOR
Buat aplikasi baru lalu tambahkan sebuah komponen Button1.

Double Click komponen Button1 lalu tambahkan script sehingga terlihat seperti di bawah ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('Calc',Sw_normal);
end;
Jalankan aplikasi lalu click Button1 maka akan muncul Calculator.

MENGGANTI ICON APLIKASI
Icon default Delphi setelah menjadi executable file adalah sebagai berikut :

Anda bisa menggantinya icon default Delphi dengan cara pilih Menu "Project" / "Option"


Pada "Project Option" pilih tab "Apllication" lalu click "Load Icon..."


Pilih file icon yang Anda inginkan lalu click "Open" sehingga tampilan "Project Options" menjadi seperti ini :



Click "Ok" lalu simpan aplikasi Anda. Jalankan, maka software Anda sudah berganti icon.


Untuk detail tips dan trik pemrograman Delphi, silahkan mengunjungi www.belajardelphi.com