MessageDlgInformation (Delphi)
Contents
Description
This example shows to you how to use function MessageDlg to create an Information Dialog.
Screenshot
Information Dialog
Code
unit Unit1;
interface
uses
Winapi.Windows,
Winapi.Messages,
System.SysUtils,
System.Variants,
System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs, // Automatically added by IDE
Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg( 'This is your account.' +#13+
'Name: Eko Indriyawan' +#13+
'Mobile Number: +6285655022205' +#13+
'Email: ekoindri@ekoindri.com',
mtInformation,
[mbOK],
0);
end;
end.
Notes
- If you want to make an Information Dialog more simple, please use procedure ShowMessage instead.
Uses
- Vcl.Dialogs.MessageDlg ( fr | de | ja )