“Address Book 2nd Show” dengan Delphi 2010

Aplikasi ini sengaja saya buat sebagai contoh lain menampilkan masukan dari pemakai ke dalam sebuah kontrol. Bila pada posting sebelumnya saya contohkan dengan menambahkan kode event secara permanen, dan pada percontohan ini saya adaptasi melalui masukan dari pengguna dan menampilkan hasilnya. Sedikit fariasi saya tambahkan penggunaan properti enabled, fokus, dan menghapus masukan data sebelumnya pada sebuah kontrol. Bilamana teman-teman mempraktekannya, teman-teman dapat berekperimen dengan metode-metode selain yang saya contohkan disini. Dan bila mana teman-teman berkenan, teman-teman dapat memberi masukan dan saran ataupun kritik yang bersifat membangun sehingga aplikasi ini dapat saya kembangkan lagi sehingga menjadi aplikasi yang lebih bermamfaat. Trims.

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	EditName	Text	(Empty)
TLabel	Label2	Caption	E-Mail:
TEdit	EditEMail	Text	(Empty)
TLabel	Label3	Caption	Mobile:
TEdit	EditMobile	Text	(Empty)
TButton	ButtonShow	Caption Enabled	Show False
TLabel	LabelDisplay	AutoSize Color	False clWhite
TButton	ButtonClear	Caption Enabled	Clear False
TButton	ButtonExit	Caption	E&xit

5. Berikut event program aplikasi ini:

procedure TForm1.ButtonShowClick(Sender: TObject);
begin
  LabelDisplay.Caption:=' Name: '+EditName.Text+#13+' E-Mail: '+EditEMail.Text+#13+' Mobile: '+EditMobile.Text;
  ButtonShow.Enabled:=False;
  ButtonClear.Enabled:=True;
  ButtonClear.SetFocus;
end;

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

procedure TForm1.ButtonClearClick(Sender: TObject);
begin
  EditName.Clear;
  EditEMail.Clear;
  EditMobile.Clear;
  LabelDisplay.Caption:='';
  ButtonClear.Enabled:=False;
  EditName.SetFocus;
end;

procedure TForm1.EditNameChange(Sender: TObject);
begin
  if (EditName.Text<>'') then ButtonShow.Enabled:=True
  else ButtonShow.Enabled:=False;
end;

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