التعامل مع messagedlg

[SOFIANE09]

السلام عليكم
ممكن موافاتنا بمختلف messagedlg  بالامثلة ان امكن

[h-farid]

<p>و عليكم السلام,</p><p style="direction: ltr;">

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Dialogs.MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
  begin
    Dialogs.MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0, mbOk);
    Close;
  end;
end; 


<br></p><p class="sceditor-nlf" style="direction: ltr;"><br></p>

[Eagle Master]

وعليكم السلام ورحمة الله وبركاته

تفضل

PHP كود :

MessageDlg('Confirmation Message', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes], 0);