Поиск сообщества
Показаны результаты для тегов 'ifmxdialogservice'.
Найдено: 1 результат
-
Пытаюсь создать модальное окно вот так: procedure ShowMessageModal(const AMessage: string); var ACloseDialogEvent: TInputCloseDialogEvent; DialogSvc: IFMXDialogService; begin DialogSvc.MessageDialog(Translate(AMessage), TMsgDlgType.mtCustom, [TMsgDlgBtn.mbOK], TMsgDlgBtn.mbOK, -1, -1, nil, nil, procedure(const AResult: TModalresult) begin if Assigned(ACloseDialogEvent) then ACloseDialogEvent(DialogSvc.MessageDialog, AResult); end); end; но выдаёт Пожалуйста, подскажите как решить проблему