Program Delphi Sederhana

Delphi programming kali ini akan dibahas mengenai bagaimana membuat sebuah program perkenalan sederhana.

Hal yang perlu disiapkan adalah sudah pasti komputer/laptop sudah terinstal Borland Delphi 7, sedikit cemilan dan secangkir kopi mungkin akan menambah kenikmatan didalam proses belajar hehehehe…

Ok langsung aja kita mulai :

1. Untuk membuat project baru, klik File >> New >> Application. Kemudian tambahkan 2 buah Label, 2 buah Edit dan 2 buah Button.

Setting properties masing-masing objek :

Label1 | Caption : Masukkan Nama

Label2 | caption : Masukkan NIM

Edit1 | Name : Enama

Text : dikosongkan/dihapus

Edit2 | Name : Enim

Text : dikosongkan/dihapus

Button1 | Name : Btampil

Caption : &Tampil

Button2 | Name : Bkeluar

Caption : &Keluar

Delphi programming kali ini akan dibahas mengenai bagaimana membuat sebuah program perkenalan sederhana.

Hal yang perlu disiapkan adalah sudah pasti komputer/laptop sudah terinstal Borland Delphi 7, sedikit cemilan dan secangkir kopi mungkin akan menambah kenikmatan didalam proses belajar hehehehe…

Ok langsung aja kita mulai :

1. Untuk membuat project baru, klik File >> New >> Application. Kemudian tambahkan 2 buah Label, 2 buah Edit dan 2 buah Button.

Setting properties masing-masing objek :

Label1 | Caption : Masukkan Nama

Label2 | caption : Masukkan NIM

Edit1 | Name : Enama

Text : dikosongkan/dihapus

Edit2 | Name : Enim

Text : dikosongkan/dihapus

Button1 | Name : Btampil

Caption : &Tampil

Button2 | Name : Bkeluar

Caption : &Keluar

2. Klik 2x/double klik pada objek tombol Tampil, berikan listing dibawah ini.

procedure TForm1.Button1Click(Sender: TObject); begin showmessage ('Nama saya ' + enama.Text + ' nim saya ' + enim.Text + ''); end;

3. Kemudian klik 2x pada objek tombol Keluar, tambahkan listing berikut.

procedure TForm1.BkeluarClick(Sender: TObject); begin if (application.MessageBox('Menutup aplikasi ?','Pesan',mb_okcancel)=idok) then close; end;