25-08-2019, 04:39 PM
26-08-2019, 06:26 PM
<p>و عليكم السلام,</p><p style="direction: ltr;"><br></p><p class="sceditor-nlf" style="direction: ltr;"><br></p>
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;
07-09-2019, 06:32 PM
وعليكم السلام ورحمة الله وبركاته
تفضل
تفضل
PHP كود :
MessageDlg('Confirmation Message', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes], 0);