Membuat Tombol Clear di Delphi 7

Membuat Tombol Clear di Delphi 7

Tombol Clear/Bersih biasa digunakan untuk membersikan text pada komponen Delphi. Tombol ini berguna ketika kita ingin menginputkan data baru yang mana pada komponen masih ada text dan kita harus menghapus data satu persatu sehingga membuang waktu. Dengan tombol ini kita tidak repot untuk menghapus data satu persatu.

Listing :

komponen.Clear; atau komponen.Text := ‘’;

---

Praktek membuat Program

1. Buat Form seperti berikut :

2. Ubah Properties-nya seperti berikut :

3. Listing Program sebagai berikut :

procedure TF_TombolClear.bt_tambahClick(Sender: TObject);

begin

     ed_hasil.Text := inttostr(strtoint(ed_angka1.Text)+strtoint(ed_angka2.Text));

end;

procedure TF_TombolClear.bt_clearClick(Sender: TObject);

begin

     ed_angka1.Text := '';

     ed_angka2.Text := '';

     ed_hasil.Text := '';

end;

procedure TF_TombolClear.bt_closeClick(Sender: TObject);

begin

     Close;

end;

4. Jalankan Program

Sumber : https://catataneko.wordpress.com