Membuat Pesan Dialog dan Input Dialog

Pesan Dialog

Cara membuat pesan dialog, langkahnya sbb

Buka Delphi dan letakkan 1 button dengan nama Tampilkan Pesan Dialog,

Masukkan rumus pada button/ Tampilkan Pesan Dialog,

procedure TForm1.Button1Click(Sender: TObject);

begin

Application.MessageBox('Saya Bisa Membuat Pesan Dialog','Pesan Dialog',MB_ICONINFORMATION+MB_OK);

end;

Selesai.

INPUT BOX

Buka Delphi dan letakkan 1 button(submit) dan 1 edit(text di kosongi),

Pada button/submit kita masukkan rumus sbb

procedure TForm1.Button1Click(Sender: TObject);

begin

if trim ( Edit1.Text)=' ' then

 begin

  Edit1.Text:=InputBox('Input Box','Masukkan Data Disini!!',' ');

  Self.Caption:=Edit1.Text;

  exit;

end;

Jalankan dan klik button sebelum maka akan muncul peringatan untuk meng inputkan data terlebih dahulu,

Klik ok/enter dan pada edit akan ter isi inputan yang kita tulis di input dialog,

Selesai.

Semoga Bermanfaat.