TTaskDialog/fr
│
English (en) │
suomi (fi) │
français (fr) │
русский (ru) │
中文(中国大陆) (zh_CN) │
TTaskDialog est un composant non visuel, qui montre des boîtes de dialogue complètes à l'exécution, avec des fonctionnalités riches comme a l'API TaskDialog de Windows. Le composant TTaskDialog est disponible depuis l'onglet Dialogs de la palette de composants. Il est disponible depuis Lazarus 1.8.
La boîte de dialogue est affichée avec la méthode Execute()
, et quand elle retourne True, la propriété ModalResult contient l'Id du bouton pressé :
- id de bouton standard (OK, Cancel, Yes etc)
- id de bouron personnalisé, qui est spécifié dans la propriété ModalResult de chaque bouton.
Aussi, la propriété RadioButton a l'objet radio-button qui a été cliqué.
Exemple
Cette exemple montre comment créer la boîte de dialogue à l'exécution, et ajoute des boutons personnalisé à l'exécution :
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