Tuesday, July 15, 2008

Apakah DialogBox Delphi Itu?

Untuk aplikasi program yang kompleks, program dituntut untuk menampilkan pesan peringatan atau pesan informasi atau pesan pernyataan bagi user bila user melakukan kesalahan ataupun ketika sistem hendak memberikan peringatan atau hanya sekedar info kepada user. Untuk keperluan seperti itu Delphi sudah menyediakan dua (2) macam cara yaitu dengan mengunakan class TApplication dan MessageDialog.

Class TApplication menyediakan function MessageBox. Syntaxnya adalah sebagai berikut:

Application.MessageBox (const Text, Caption: PChar; Flags: Longint): Integer;

  1. Text merupakan text yang akan ditampilkan di form MessageBox.
  2. Caption merupakan caption pada MessageBox
  3. Flags merupakan jenis atribut yang disertakan, misalnya : ButtonOK atau Button YesNoCancel dan icon yang akan ditampilkan

Jenis-jenis Flag yang umum digunakan : (yang lain dapat dilihat pada Delphi Help)

Gunakan flag-flag ini rntuk menentukan icon yang akan mencul pada dialog box (silahkan pilih yang sesuai keperluan):

  • MB_ICONEXCLAMATION, MB_ICONWARNING
  • MB_ICONINFORMATION, MB_ICONASTERISK
  • MB_ICONQUESTION
  • MB_ICONSTOP, MB_ICONERROR, MB_ICONHAND

Contoh:

If Application.MessageBox(‘Config file not found’, Pchar(‘Error Reading file’),
MB_RETRYCANCEL or MB_DEFBUTTON1 or MB_ICONSTOP)=IDRETRY then
showmessage(‘anda telah memilih tombol retry’);

Nilai kembali dari fungsi ini adalah :

  • mrNone
  • mrAbort
  • mrYes
  • mrOk
  • mrRetry
  • mrNo
  • mrCancel
  • mrIgnore
  • mrAll

No comments:

Post a Comment


Powered By Bloomberg