1. mtWarning

Digunakan untuk menyampaikan peringatan. Apakah proses akan dilanjutkan atau tidak, dll.

2. mtError

Digunakan untuk menyampaikan pesan error, apakah proses akan dihentikan, dicoba lagi atau di abaikan. Dll.

3. mtInformation

Digunakan untuk menyampaikan suatu informasi

4. mtConfirmation

Digunakan untuk menyampaikan konfirmasi, apakah Ya, Tidak, Tidak untuk semuanya, atau Ya untuk semuanya. Dll.

5. mtCustom

Custom. Tergantung yang membuat

TmsgDlgType = mtWarning, mtError, mtInformation, mtConfirmation, mtCustom

TMsgDlgBtn = mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbYesToAll,mbNoToAll mbAll, mbHelp

Return values = mrNone, mrYes, mrNo, mrOk, mrCancel, mrAbort, mrRetry, mrIgnore, mrAll, mrYesToAll,mrNoToAll

Contoh penggunaan return values

procedure TForm1.Button1Click(Sender: TObject);

begin

if messagedlg(‘Tekan Yes or No’, mtinformation,[mbyes,mbno],0)= mryes then

form1.caption:=’Anda menekan tombol Yes’ else

form1.caption:=’Anda menekan tombol No’;

end;

Jika pilih Yes Jika pilih No

Buat Form seperti dibawah

Listing Program :
unit Unit1;

interface

uses

Windows, Message0s, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

r,l,v : real;

begin

r:= strtofloat(edit1.Text);

v :=4/3 *3.14 * r * r * r;

l :=4 * 3.14 * r * r;

edit2.Text := floattostr (v);

edit3.Text := floattostr (l);

end;

end.

Tampilan ketika dijalankan :