Difference between revisions of "TTaskDialog/fr"
(Created page with "{{TTaskDialog}} '''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 T...") |
|||
Line 1: | Line 1: | ||
{{TTaskDialog}} | {{TTaskDialog}} | ||
− | '''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. {{ComponentTab/fr|TTaskDialog|Dialogs}}. Il est disponible depuis Lazarus 1.8. | + | '''TTaskDialog''' [[image:ttaskdialogicon.png]] 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. {{ComponentTab/fr|TTaskDialog|Dialogs}}. Il est disponible depuis Lazarus 1.8. |
[[image:ttaskdialog.png]] | [[image:ttaskdialog.png]] |
Revision as of 20:58, 2 February 2018
│
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