Senin

Belajar Cara Membuat Tombol Hapus dengan Delphi 7

Program berikut hanyalan sebuah program perhitungan sederhana tapi kita akan belajar untuk menambahkan sebuah tombol hapus yang akan dipergunakan untuk membersikan edit.
Langkah-langkahnya adalah :

1. Buatlah sebuah form seperti gambar berikut dan belajarlah untuk membuat tampilan form yang menarik. karena program yang memiliki tampilan yang bagus akan lebih baik.






2. Setelah selesai membuat sebuah form, kemudian masukkan code yang akan kita gunakan untuk menjalankan program. Pada tombl jumlahkan 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 mengklick tombol Run pada panel.

 Selamat Mencoba !!!!



2 komentar:

  1. mantap gan thank sudah berbagi share

    BalasHapus
  2. Ada cara menghapus yang lebih mudah gak ........

    BalasHapus