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 :)
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
Itulah cara membuat button input :)
Sekian Artikel Kali ini
Semoga Bermanfaat
Trimakasih :)