selamat siang sodara...oke waktunya mencatat lagi...
catatan kali mengenai message dialog, di Delphi terdapat sebuah form dialog yang bisa digunakan untuk menampilkan pesan, bisa pesan informasi, pesan peringatan, pesan error, pesan konfirmasi. nah, kali ini yang dapet kesempatan untuk tampil adalah pesan konfirmasi.
sebenernya kita bisa pake secara langsung message dialog yang sudah disediakan oleh Delphi, dengan perintah MessageDlg('Pesan',mtConfirmation, [mbYes,mbNo], 0); tapi biasalaaah iseeeng...😁 pengen utak-atik dan dimodif sendiri. sebenernya juga ga banyak modif, paling cuma dibikinin function sendiri trus sama ngrubah Caption tombol Yes jadi Ya dan No jadi Tidak...
oke langsung aja yah ke contoh kode nya, ini potongan kode function-nya dan pemanggilan function
naaaahh, kalo untuk hasilnya kaya gini...
helllloooo...tolong perhatian bentar yak...itu ada Form untuk Set Pesan, maksudnya gini....itu cuma form yang saya buat untuk set pesan agar keliatan dinamis, tapi bisa juga dituliskan secara langsung pas manggil fungsi DialogKonfirmasi.
terus itu ada pesan pertama dan pesan kedua...coba diliat dibagian source code tadi...jadi Dialog yang muncul pertama adalah pesan pertama, terus kapan pesan kedua itu muncul??? jawabannya kalo tombol Ya pada pesan pertama di klik...kalo kita klik Tidak pada pesan pertama maka yang terjadi pesan kedua tidak akan pernah muncul selamanya...
oke biar lebih greget lagi, ini saya kasih full source code nya, bisa download disini. sepertinya sudah cukup catatan kali ini...silahkan di kembangkan lagi kode nya...salam
 |
| Form Set Pesan |
 |
| Pesan Pertama |
 |
| Pesan Kedua |
helllloooo...tolong perhatian bentar yak...itu ada Form untuk Set Pesan, maksudnya gini....itu cuma form yang saya buat untuk set pesan agar keliatan dinamis, tapi bisa juga dituliskan secara langsung pas manggil fungsi DialogKonfirmasi.
terus itu ada pesan pertama dan pesan kedua...coba diliat dibagian source code tadi...jadi Dialog yang muncul pertama adalah pesan pertama, terus kapan pesan kedua itu muncul??? jawabannya kalo tombol Ya pada pesan pertama di klik...kalo kita klik Tidak pada pesan pertama maka yang terjadi pesan kedua tidak akan pernah muncul selamanya...
oke biar lebih greget lagi, ini saya kasih full source code nya, bisa download disini. sepertinya sudah cukup catatan kali ini...silahkan di kembangkan lagi kode nya...salam
Terima kasih banyak.....
BalasHapusIzin Copy Codingnya
Karena saya hanya butuh satu konfirmasi saja, maka Saya modifikasi....
FUNCTION TFormDataBarang.DialogKonfirmasi(Pesan1, Pesan2: String): boolean;
begin
DialogKonfirmasi := True;
{MessageDlg dengan button bahasa indonesia.}
with CreateMessageDialog(Pesan1, mtConfirmation, [mbYes, mbNo]) do
begin
try
Caption := Pesan2; //'Pesan Konfirmasi';
TButton(FindComponent('Yes')).Caption := 'Ya';
TButton(FindComponent('No')).Caption := 'Tidak';
case ShowModal of
mrYes :
begin
DialogKonfirmasi := True; Exit;
end;
mrNo :
begin
DialogKonfirmasi := False; Exit;
end;
end;
finally
Free;
end;
end;
end;
Prosedur Panggilnya
procedure TFormDataBarang.Button1Click(Sender: TObject);
begin
if DialogKonfirmasi(' Yakin Menghapus Data Ini? ','Konfirmasi Ulang')=True then
Begin
Close;
end;
end;