Membuat Button Input

       Kita akan membuat button Input,yang apabila kita mengklik otomatis inputan kita akan terhapus.
Yang pertama kita lakukan adalah merancang bentuk tampilan pada program Borland Delphi
Rancang seperti gambar dibawah inimenggunakan
1.Label

2.Edit

3.Button

 Setelah kita selesai merancang tampilan sekarang membuat perintah berupa codingan yaitu dengan mengklik dua kali pada button input dan menulis codingan

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text :='';
Edit2.Text :='';
Edit3.Text :='';
Edit4.Text :='';
Edit5.Text :='';

end;




Lalu pada button Exit


procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate
end;


Setelah kita selesai menulis codingan ,run program maka akan muncul tampilan seperti berikut

 Sekarang kita mengisi kolom edit seperti paa gambar

 

Saat kita mengklik button Input maka tulisan yang diinput/diisi pada kolom edit otomatis terhapus.
Itulah cara membuat button input :)

Sekian Artikel Kali ini

Semoga Bermanfaat

Trimakasih :)