Перейти к содержанию
Fire Monkey от А до Я

Валерий Ильин

Пользователи
  • Постов

    0
  • Зарегистрирован

  • Посещение

Активность репутации

  1. Like
    Валерий Ильин отреагировална S_007 в Предупреждение MessageDlg   
    Получилось так
    Добавить в uses FMX.DialogService
    TDialogService.MessageDialog('Уверены?', TMsgDlgType.mtConfirmation, mbYesNo, TMsgDlgBtn.mbNo, 0, procedure(const AResult: TModalResult) begin   if (AResult = mrYes) then begin // end; end); Max  еще раз Спасибо!
     
  2. Like
    Валерий Ильин отреагировална rareMax в Предупреждение MessageDlg   
    FMX.Dialogs procedure ShowMsgYesNo; begin { Show a multiple-button alert that triggers different code blocks according to your input } TDialogService.MessageDialog('Choose a button:', System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], System.UITypes.TMsgDlgBtn.mbYes, 0, // Use an anonymous method to make sure the acknowledgment appears as expected. procedure(const AResult: TModalResult) begin case AResult of { Detect which button was pushed and show a different message } mrYES: ShowMessage('You chose Yes'); mrNo: ShowMessage('You chose No'); end; end); end;  
×
×
  • Создать...