Komponente VistaTaskdialog

[Andreas L.]

Zitat von Willie1:

Die zweite Methode macht zunächst mehr Arbeit aber mit

Delphi-Quellcode:

with VTD do begin
   Caption:='Warnung';
   MainIcon:=tdiWarning;
   ...
   Execute;
   aw:=ModalResult;
end

und Copy and Paste ließe sich das auch schnell realisieren.

Hi,
das Copy & Paste kannst du dir sparen in dem du eine Procedure dafür deklarierst.

Delphi-Quellcode:

procedure ShowTaskDialog(ACaption: String; .... etc. );
begin  
  TaskDialog.Caption := ACaption;
  TaskDialog.MainIcon := AMainIcon;
  ...
  if TaskDialog.Execute then
    Fertig
end;