TTaskDialog/fi

TTaskDialog on ei-visuaalinen komponentti, joka näyttää täydellisiä dialogeja ajon aikana. Dialogissa on runsaasti ominaisuuksia, kuten Windows TaskDialog API:ssa. Se on saatavana komponenttipaletin Dialogs-välilehdeltä . Se on mukana Lazarus versiosta 1.8 lähtien.

Dialogi näytetään Execute metodilla ja jos se saa arvon true niin property ModalResult:ssa on painetun painikkeen id:

• vakiopainikkeen id (OK, Cancel, Yes jne)
• yksilöllisen painikkeen tunnus, joka määritettiin jokaisen painikkeen ModalResult:ssa

Ominaisuus eli property MainIcon voidaan asettaa vakiokuvakkeille: none, warning, error, information, shield.

Property RadioButton on valittu radio-painike, joka klikattiin.

Esimerkki

Tämä esimerkki näyttää, miten luodaan valintaikkuna ajonaikana ja siihen on lisätty räätälöityjä painikkeita:

  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

Katso myös

• Muita dialogiesimerkkejä

From the Free Pascal wiki, page "TTaskDialog/fi", as it stood on 2020-03-02 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.