Delphi XE7 FMX 弹出消息

2023-06-19 23:55•php•阅读 2511

if MessageDlg('确认退出吗？', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], -1) = mrOK then

MainActivity.finis

手机已经不支持这个了。改别办法去

MessageDlg('确认退出吗?', System.UITypes.TMsgDlgType.mtInformation,

[

System.UITypes.TMsgDlgBtn.mbOK,

System.UITypes.TMsgDlgBtn.mbCancel

], 0,

procedure(const AResult: TModalResult)

begin

if AResult = mrOk then

begin

Application.MainForm.DisposeOf;

Halt(0);

end

else

if AResult = mrCancel then