TTaskDialog/ru
│
English (en) │
suomi (fi) │
français (fr) │
русский (ru) │
中文（中国大陆） (zh_CN) │
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
См. также
