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