Membuat Message Dialog dengan Firemonkey

Assalamu’alaikum wr, wb.

Pada kesempatan kali ini saya akan membahas tentang “Bagaimana cara membuat message dialog dengan firemonkey”.

Jika anda sudah terbiasa menggunakan VCL dan baru migrasi ke Firemonkey, pastinya kita anda akan merasa bingung untuk membuat message dialog. Karena, kodenya berbeda dengan VCL.

Oke, langsung saja kita ke pembahasan.

1. Buat project baru dengan Form Firemonkey
2. Masukkan 5 button dan beri nama seperti gambar berikut
   
3. Masukkan kode berikut :

Warning

procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg('Tutorialkodedelphi.blogspot.com', System.UITypes.TMsgDlgType.mtWarning, mbYesNo, 0) = mrNo then
Abort;
end;

Error

procedure TForm1.Button2Click(Sender: TObject);
begin
if MessageDlg('Tutorialkodedelphi.blogspot.com', System.UITypes.TMsgDlgType.mtError, mbYesNo, 0) = mrNo then
Abort;
end;

Information

procedure TForm1.Button3Click(Sender: TObject);
begin
if MessageDlg('Tutorialkodedelphi.blogspot.com', System.UITypes.TMsgDlgType.mtInformation, mbYesNo, 0) = mrNo then
Abort;
end;

Confirmation

procedure TForm1.Button4Click(Sender: TObject);
begin
if MessageDlg('Tutorialkodedelphi.blogspot.com', System.UITypes.TMsgDlgType.mtConfirmation, mbYesNo, 0) = mrNo then
Abort;
end;

Custom

procedure TForm1.Button5Click(Sender: TObject);
begin
if MessageDlg('Tutorialkodedelphi.blogspot.com', System.UITypes.TMsgDlgType.mtCustom, mbYesNo, 0) = mrNo then
Abort;
end;

Sekian dari saya, semoga bermanfaat.
Untuk Source Codenya silakan download disini.

Wassalamu’alaikum wr, wb.