TTaskDialog/fi

│ English (en) │ suomi (fi) │ français (fr) │ русский (ru) │ 中文（中国大陆）‎ (zh_CN) │

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ä