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;
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:
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
terima kasih info nya
ReplyDelete