Delphi for delphier

Fungsi – MessageDlg

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori Prosedur / Fungsi
   
Judul MessageDlg
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi by Eko Indriyawan
   
Tujuan
Mengajarkan kepada delphier pemula tentang cara menggunakan fungsi MessageDlg.
   
Overview
Pembahasan kali ini akan ditekankan pada penggunaaan fungsi MessageDlg. Fungsi ini memiliki tugas yang hampir sama dengan prosedur ShowMessage, ShowMessageFmt dan variant-variantnya. Dimana memiliki tujuan sama yaitu untuk menampilkan sebuah pesan kepada user yang menggunakan program aplikasi.
Fungsi ini lebih interaktif dari pada ShowMessage dan ShowMessageFmt, dimana didalam fungsi ini memiliki tambahan fitur berupa icon yang lebih bisa memberikan unsur penguatan akan pesan yang akan disampaikan kepada user atau operator.
Silahkan anda gunakan tutorial ini untuk membuat program aplikasi anda menjadi lebih interaktif dan memiliki unsur kemantapan yang lebih besar jika digunakan prosedur ShowMessage dan ShowMessageFmt..
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
  Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Bevel1: TBevel;
Panel1: TPanel;
Button5: TButton;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
prosedur000015.png
   
Langkah 4
Silahkan anda klik 2x pada tombol MessageDlg Informasi. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
var
Pesan : string;
begin
Pesan := ‘Anda sedang mengunjungi blog Delphi fo Delphier‘;
MessageDlg(Pesan,mtInformation,[mbOK],0);
end;
   
Langkah 5
Silahkan anda klik 2x pada tombol MessageDlg Konfirmasi. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button2Click(Sender: TObject);
var
Pesan : string;
begin
Pesan := ‘Apakah anda ingin keluar ?‘;
case MessageDlg(Pesan,mtConfirmation,[mbYes,mbNo],0) of
mrYes:
begin
Close;
end;
mrNo:
begin
// abaikan
end;
end;
end;
   
Langkah 6
Silahkan anda klik 2x pada tombol MessageDlg Error. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button3Click(Sender: TObject);
var
Pesan : string;
begin
Pesan := ‘Anda belum memasukkan data !!!‘;
MessageDlg(Pesan,mtError,[mbOK],0);
end;
   
Langkah 7
Silahkan anda klik 2x pada tombol MessageDlg Warning. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button4Click(Sender: TObject);
var
Pesan : string;
begin
Pesan := ‘Data yang anda tentukan kurang lengkap…‘;
MessageDlg(Pesan,mtWarning,[mbOK],0);
end;
   
Langkah 8
Silahkan anda compile dengan menekan tombol Ctrl + F9.
   
Langkah 9
Lanjutkan dengan menekan tombol F9 hingga program aplikasi siap untuk dijalankan.
   
 

prosedur000016.png

   

Langkah 10

Silahkan anda tekan tombol MessageDlg Informasi hingga didapatkan tampilan seperti ini.
   
 
prosedur000017.png
   

Langkah 11

Lanjutkan dengan menekan tombol OK.

   

Langkah 12

Setelah itu silahkan anda tekan tombol MessageDlg Konfirmasi hingga didapatkan tampilan seperti berikut ini.

   
 

prosedur000018.png

   

Langkah 13

Pilih tombol Yes untuk menutup aplikasi dan pilih tombol No untuk membatalkannya. Untuk sementara pilih tombol No.

   

Langkah 14

Kemudian silahkan anda tekan tombol MessageDlg Error hingga didapatkan tampilan seperti berikut ini.

   
 

prosedur000019.png

   

Langkah 15

Selanjutnya anda tekan tombol OK.

   

Langkah 16

Sekarang anda tekan tombol MessageDlg Warning hingga didapatkan tampilan seperti berikut ini.

   
 

prosedur000020.png

   

Langkah 17

Lanjutkan dengan menekan tombol OK.

   
 

Dari serangkaian contoh-contoh kotak pesan dialog diatas, terlihat bahwa untuk masing-masing jenis pesan memiliki icon-icon yang berbeda. Dimana icon tersebut mencerminkan dari kondisi dari pesan yang disampaikan

   

Langkah 18

Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.

   
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
Atas perhatiannya, saya mengucapkan banyak terimakasih.
   
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: