Membuat Tombol Hapus Pada Delphi

Membuat Tombol Hapus


Program berikut hanyalan sebuah program perhitungan sederhan tapi kita akan belajar untuk menambakan sebua tombol hapus yang akan dipergunakan untuk membersikan edit.
Langka-langkanya adalah :
1. Buatlah sebuah form seperti gambar 18 berikut dan belajarlah untuk membuat tampilah form yang menarik. karena program yang memiliki tampilan yang bagus akan lebih baik.

Gambar 18

2. Setelah selesai mendisain sebuah form lanjutkan dengan memasukan code yang akan kita gunakan untuk menjalankan program. Pada tombl jumlakan masukan code berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text :=
FloatToStr(StrToFloat(Edit1.Text)+
strtofloat(edit2.Text));
end;

sedangkan pada tombol hapus masukan code berikut :

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
End;

3. Setelah selesai mengetikan code, jalankan program tersebut dengan menekan F9 pada keyboard atau dengan mengclick tombol Run pada panel.

sumber :mawix.blogspot..com