Difference between revisions of "TTaskDialog/fi"
m (Fixed syntax highlighting) |
|||
Line 19: | Line 19: | ||
Tämä esimerkki näyttää, miten luodaan valintaikkuna ajonaikana ja siihen on lisätty räätälöityjä painikkeita: | Tämä esimerkki näyttää, miten luodaan valintaikkuna ajonaikana ja siihen on lisätty räätälöityjä painikkeita: | ||
− | < | + | <syntaxhighlight lang=pascal> |
with TTaskDialog.Create(self) do | with TTaskDialog.Create(self) do | ||
try | try | ||
Line 43: | Line 43: | ||
Free; | Free; | ||
end | end | ||
− | </ | + | </syntaxhighlight> |
[[image:TTaskDialog_confirm_removal.png]] | [[image:TTaskDialog_confirm_removal.png]] |
Latest revision as of 02:51, 2 March 2020
│
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