Difference between revisions of "TTaskDialog/ru"
(Created page with "{{TTaskDialog}} '''TTaskDialog''' image:ttaskdialogicon.png является невизуальным компонентом, предназначенным для ото...") |
|||
(2 intermediate revisions by 2 users not shown) | |||
Line 18: | Line 18: | ||
В данном примере показано, как можно создать диалоговое окно и добавить пользовательские кнопки в режиме выполнения программы: | В данном примере показано, как можно создать диалоговое окно и добавить пользовательские кнопки в режиме выполнения программы: | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
with TTaskDialog.Create(self) do | with TTaskDialog.Create(self) do | ||
try | try | ||
Line 46: | Line 46: | ||
[[image:TTaskDialog_confirm_removal.png]] | [[image:TTaskDialog_confirm_removal.png]] | ||
+ | == См. также == | ||
+ | |||
+ | * [[Dialog Examples|Примеры диалоговых окон]] | ||
+ | * [https://stackoverflow.com/questions/4979556/how-to-use-the-ttaskdialog Hint on stackoverflow.com] | ||
{{LCL Components/ru}} | {{LCL Components/ru}} |
Latest revision as of 18:18, 1 January 2021
│
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
См. также