Asmaul Husna

Asmaul Husna

Pesan

Kebahagian itu karena adanya cinta,maka jika tanpa cinta kebahagiaan akan sirna,jika kebahagian sirna akan tampaklah kegalauan hati, karena hati pengendali raga, maka jikalau sakit hati, sakitlah semua, oleh karenanya perolehlah cinta, kemanakah mencari cinta,tak perlulah mencarinya,karena cinta ada di manapun kita berada, bukanlah kiranya mencari,tetapi perkenankanlah mendekatinya, mendekat kepada penguasa cinta,pemilik alam semesta & tentulah sang Maha Agung yg bersifat tak seperti makhluk-Nya ...

Pages - Menu

Wednesday, April 23, 2014

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

1 komentar:

  • uduy macal says:
    Monday, 30 November, 2015

    terima kasih info nya

Post a Comment

Selamat berkunjung di blog saya, terima kasih.

Labels