Cara Membuat Message Pada Delphi

Cara Membuat Message Pada Delphi – Kalau sebelumnya saya sudah membahasa mengenai InputBox, pada kesempatan kali ini saya akan membahas mengenai Message. Message  adalah suatu pesan yang befungsi untuk memberitahu user kondisi/hasil dari suatu operasi. Contoh: Dalam subuah aplikasi penyimpanan data, ketika user menginputkan data lalu setelah itu menyimpanya maka sistem apilkasi tersebut akan memberi tahu user kalau data yang di inputkan sudah disimpan. Nah, pemberitahuan tersebutlah yang disebut dengan Message. 

Ada banyak sekali jenis – jenis Message di dalam Delphi. Akan tetapi, saya hanya akan membahas beberapa saja diantaranya, ShowMessage, Application.MessageBox, dan MessageDlg. Yang mana ketiga jenis tersebut adalah yang sering saya gunakan. Untuk lebih lengkapnya silahkan simak dibawah ini:

Cara Membuat ShowMessage pada Delphi

ShowMessage adalah suatu pesan bisa dibilang tampilannya itu yang paling sederhana diantara yang lainya. Dan cara pembuatannya itu seperti dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Ini Adalah Contoh Message Box');
end;

Cara Membuat Application.MessageBox pada Delphi

Sementara itu, Application.MessageBox adalah sebuah pesan yang tampilanya itu lebih baik jika dibandingkan dengan showmessage karena pada Application.MessageBox terdapat icon dari pesan itu sendiri. Seperti, pesan informasi maka icon nya juga icon informasi, pesan error maka icon nya juga icon error, dll. Untuk lebih jelasnya silahkan simak contoh berikut:

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.MessageBox('Ini Adalah Contoh Application MessageBox','Informasi',MB_OK or MB_ICONINFORMATION);
end;

Cara Membuat MessageDlg pada Delphi

Dan yang terakhir itu MessageDlg. Dari segi tampilan MessageDlg hampir sama dengan Application.MessageBox akan tetapi yang membedakan adalah dari segi penulisan sintaks nya itu agak sedikit berbeda. Untuk lebih jelasnya silahkan simak sintaksnya dibawah ini: 

procedure TForm1.Button3Click(Sender: TObject);
begin
MessageDlg('Ini Adalah Contoh MessageDlg',mtinformation,[mbOK],0);
end;

Sekian artikel mengenai Cara Membuat Message Pada Delphi ... Semoga bermanfaat :)

• 0comment

Achmad Fajar

"Musuh yang sebenarnya bukanlah orang lain, melainkan ego diri kita sendiri. Jadi, kalahkanlah ego diri kita sendiri, maka kesuksesan dapat diraih!".

Related Posts

Delphi