“Address Book Show” dengan Delphi 2010

Bila pada posting sebelumnya saya mencontohkan masukan pengguna melalui jendela pesan. Sekarang saya contohkan menampilkannya melalui kontrol yang tersedia pada form. Dalam percontohan ini data masukan sudah tersimpan dalam kode program dan ketika aplikasi di jalankan maka pada kontrol TEdit Nama, E-Mail dan Mobile secara otomatis terisi otomatis.

 

1. Jalankan terlebih dahulu aplikasi Delphi 2010

2. Pada jendela “Welcome Page” pilih  “New Project…”

3. Pada jendela “New Items” pilih “Delphi projects” lalu pilih “VCL Forms Application” kemudian pilih “OK”

 

4. Berikut seting kontrol properti yang terdapat pada aplikasi ini:

Object	Name	Properties	Setting
TForm1	Form1	Caption Position	Address Book poScreenCenter
TLabel	Label1	Caption	Name:
TEdit	Edit1	Text	(Empty)
TLabel	Label2	Caption	E-Mail:
TEdit	Edit2	Text	(Empty)
TLabel	Label3	Caption	Mobile:
TEdit	Edit3	Text	(Empty)
TButton	Button1	Caption	E&xit

5. Berikut event program aplikasi ini:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:='Guntur Nitiputra';
  Edit2.Text:='GunturNitiputra@Yahoo.Com';
  Edit3.Text:='+628999049416'
end;

6. Pilih tombol “Run” atau teman-teman bisa langsung menekan tombol “F9” pada keyboard