“Address Book Message” dengan Delphi 2010

Masih berkisar tentang menampilkan pesan kotak dialog. Namun kali ini saya coba menampilkan pesan kotak dialog melalui hasil input dari pengguna dan menampilkannya melalui keluaran seperti gambar di samping.

 

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	Show
TButton	Button2	Caption	E&xit

5. Berikut event program aplikasi ini:

procedure TForm1.Button1Click(Sender: TObject);
var
  Name   : string;
  EMail  : string;
  Mobile : string;
begin
  Name   := (Edit1.Text);
  EMail  := (Edit2.Text);
  Mobile := (Edit3.Text);

  ShowMessage('Hi '+Name+#13+'Your E-Mail Address is '+EMail+#13+'Your Mobile Number is '+Mobile)
end;

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

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