1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
PString(@ButtonCaptions[TMsgDlgBtn.mbYes])^ := 'Si';
PString(@ButtonCaptions[TMsgDlgBtn.mbNo])^ := 'No';
PString(@ButtonCaptions[TMsgDlgBtn.mbOK])^ := 'D''accord';
Evt := TEvent.Create(nil, True, False, 'azerty', True);
if TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceASync, DialogSvcA) then
DialogSvcA.MessageDialogAsync(
'Bonjour',
TMsgDlgType.mtCustom,
[TMsgDlgBtn.mbOK, TMsgDlgBtn.mbNo],
TMsgDlgBtn.mbYes, 0,
procedure(const AResult: TModalResult)
begin
Evt.SetEvent;
end
);
Evt.WaitFor(INFINITE);
Evt.ResetEvent;
Evt.Free; |
Partager