Difference between revisions of "TTaskDialog/fi"
(Created page with "{{TTaskDialog}} '''TTaskDialog''' on ei-visuaalinen komponentti, joka näyttää täydellisiä dialogeja ajon aikana. Dialogissa on runsaasti ominaisuuksia, kuten Windows Tas...") |
|||
Line 1: | Line 1: | ||
{{TTaskDialog}} | {{TTaskDialog}} | ||
− | '''TTaskDialog''' on ei-visuaalinen komponentti, joka näyttää täydellisiä dialogeja ajon aikana. Dialogissa on runsaasti ominaisuuksia, kuten Windows TaskDialog API:ssa. | + | '''TTaskDialog''' [[image:ttaskdialogicon.png]] on ei-visuaalinen komponentti, joka näyttää täydellisiä dialogeja ajon aikana. Dialogissa on runsaasti ominaisuuksia, kuten Windows TaskDialog API:ssa. |
Se on saatavana [[Component Palette/fi|komponenttipaletin]] [[Dialogs_tab/fi|Dialogs]]-välilehdeltä . Se on mukana Lazarus versiosta 1.8 lähtien. | Se on saatavana [[Component Palette/fi|komponenttipaletin]] [[Dialogs_tab/fi|Dialogs]]-välilehdeltä . Se on mukana Lazarus versiosta 1.8 lähtien. | ||
Revision as of 20:57, 2 February 2018
│
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