Jo, seh ich auch
Delphi-Quellcode:
procedure TForm21.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
TDialogService.MessageDialog('hallo', TMsgDlgType.mtConfirmation,
[TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo, TMsgDlgBtn.mbAbort], TMsgDlgBtn.mbNo, 0,
procedure(const AResult: TModalResult)
begin
end);
end;
Was aber auch verständlich ist, denn wenn ich mir in Fmx.Dialogs.Win das TFMXDialogService.MessageDialog ansehe, dann wird mir schlecht.