Minggu, 02 Maret 2008

Contoh Aplikasi Salam Kenal ( Latihan 1 )

Buatlah Aplikasi Salam Kenal (LATIHAN 1)

a. Desian Properties

Object Name Caption
Label 1 Label 1 Nama Saya
Label 2 Label 2 Alamat
Label 3 Lnama -
Label 4 Lalamat -
Button1 Bclose Close
Form 1 Form1 Salam Kenal

b. Listing program

1. Ketika form dalam keadaan aktif maka form akan menampilkan nama dan alamat pembuat program

procedureTForm1.FormCreate(Sender: TObject);
begin
nama.Caption := 'Irnawan';
alamat.Caption := 'Jalan Bina Warga';
end;

2. Untuk keluar dari program user mengklik buton close

procedureTForm1.TcloseClick(Sender: TObject);
begin
close;
end;
end.

0 komentar: