التعامل مع 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>