1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| { ======================================================================== }
function TForm1.MessageDlgFMX(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
var
ASyncService : IFMXDialogServiceASync;
Resu : Integer ;
begin
Result := -1 ;
if TPlatformServices.Current.SupportsPlatformService (IFMXDialogServiceAsync, IInterface(ASyncService)) then
begin
ASyncService.MessageDialogAsync(Msg, DlgType, Buttons, TMsgDlgBtn.mbNo, 0,
procedure(const AResult: TModalResult)
begin
Resu := AResult ; // Bidouillage !
end);
Result := Resu ;
end;
End;
{ ======================================================================== }
procedure TForm1.Button2Click(Sender: TObject);
Var
Res : Integer ;
begin
Res := MessageDlgFMX('Bienvenue dans mon application Delphi. Quitter?',
TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) ; // Renvoie systématiquement 0
If Res = mrYes then
begin
MessageDlgFMX('Fin de l''application Delphi.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOk], 0);
Close;
end; |
Partager