TTaskDialog/ru

TTaskDialog является невизуальным компонентом, предназначенным для отображения полнофункциональных диалоговых окон в режиме выполнения программы с богатыми возможностями, наподобие диалоговых окон, реализованных через Windows API. Данный компонент расположен на вкладке Dialogs палитры компонентов и доступен в Lazarus начиная с версии 1.8.

Отобразить диалоговое окно можно выполнив метод Execute() и, если получен результат True, то свойство ModalResult получает id нажатой кнопки:

• id стандартной кнопки (OK, Cancel, Yes и т.д.)
• id пользовательской кнопки, который был указан в переменной ModalResult для каждой кнопки

В свойстве MainIcon можно задать значение стандартного значка: none, warning, error, information, shield.

Свойство RadioButton определяет объект TRadioButton, который был выбран щелчком мыши.

Пример

В данном примере показано, как можно создать диалоговое окно и добавить пользовательские кнопки в режиме выполнения программы:

  with TTaskDialog.Create(self) do
    try
      Title := 'Confirm removal';
      Caption := 'Confirm';
      Text := 'Remove selected item?';
      CommonButtons := [];
      with TTaskDialogButtonItem(Buttons.Add) do
      begin
        Caption := 'Remove';
        ModalResult := mrYes;
      end;
      with TTaskDialogButtonItem(Buttons.Add) do
      begin
        Caption := 'Keep';
        ModalResult := mrNo;
      end;
      MainIcon := tdiQuestion;
      if Execute then
        if ModalResult = mrYes then
          ShowMessage('Item removed');
    finally
      Free;
    end

См. также

• Примеры диалоговых окон
• Hint on stackoverflow.com

From the Free Pascal wiki, page "TTaskDialog/ru", as it stood on 2021-01-01 after a change by Sharfik, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.