Jenis Message

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

Program menghitung volume dan luas lingkaran

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 :

Membuat program penjumlahan, pengurangan, perkalian, dan pembagian

Gambarnya blum di upload euy. sementara kodenya dulu :

#update 04des09# Mohon maaf sebelumnya buat yang protes, saya lupa upload gambarnya soalnya udah lama banget.

Buat form seperti di bawah

Sourcecodenya sbb:

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Editbilangan1: TEdit;
Editbilangan2: TEdit;
Edithasil: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x,y,z : real;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x + y;
Edithasil.Text := floattostr (z);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x - y;
Edithasil.Text := floattostr (z);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x * y;
Edithasil.Text := floattostr (z);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x / y;
Edithasil.Text := floattostr (z);
end;
end.

Hasilnya sebagai berikut :