Membuat Custom Message Dialog Delphi

بسم الله الرحمن الرحيم

Alhamdulillah, pada kesempatan ini saya akan berbagi sourcecode bagaimana membuat Custom Message Dialog delphi. Message Dialog biasanya digunakan untuk memberitahukan kepada user suatu kejadian, seperti gagal atau sukses mengeksekusi perintah program.

Pada pemrograman delphi, kita bisa memakai Showmessage, MessageDlg ataupun MessageBox dalam membuat Message Dialog. Tetapi, ketiga perintah tersebut hanya menampilkan Message Dialog yang standar tanpa bisa kita ubah tampilannya.

Kita dapat menggunakan perintah CreateMessageDialog() untuk membuat Message Dialog yang dapat kita atur sendiri sesuai keinginan kita. Berikut kode program menggunakan CreateMessageDialog():

with CreateMessageDialog('Hari ini tanggal '+FormatDateTime('dd-mm-yyyy',Now),mtInformation,[mbOK]) do
  begin
    try
      begin
        Caption := 'Informasi';
        Font.Name:= 'Times New Roman';
        Font.Size := 10;
        TButton(FindComponent('OK')).Caption := 'Baiklah';
        ShowModal;
      end
    finally
      Free;
    end;
  end;

Untuk lebih jelas, silahkan demo dan sourcecode-nya pada link di bawah ini:

1. pesan-dialog[mf]
2. pesan-dialog[idws]

Terima kasih, semoga bermanfaat bagi kita semua. Mohon kritik dan saran dari pembaca yang saya hormati. Salah khilaf mohon maaf,

Wassalamu 'alaikum warohmatullahi wa barokatuh