Hallo TurboMagic,
jawoll ich habe keine Ahnung was Self bedeutet (bin Dilletant), aber ich bedanke mich für deinen wertvollen Hinweis mit"NIL".
Ich habe es jetzt so am Laufen: (snip)
LG Harry
Noch so'n paar Tips gratis:
1. Ja, Himitsu hat recht, besser kein with benutzen.
2. Wenn du vor dem Eingeben deines Codebeispiels den Delphi Helm über dem Texteditor hier im
Forum anklickst und du deinen Codee dann zwischen die dadurch eingefügten Tags schreibst, wird
der passend formatiert (jedenfalls so, wie du das einrückst etc.), sieht z. B. so aus:
Delphi-Quellcode:
procedure errorMessage(Message:String);
begin
with TTaskDialog.Create(NIL) do
begin
try
MainIcon := tdiWarning;
Caption := 'WARNUNG';
Title := Message;
CommonButtons := [tcbClose];
Execute;
finally
Free;
end;
end;
end;
3. Hier noch eine Variante ohne with:
Delphi-Quellcode:
procedure errorMessage(Message:String);
var
Dlg: TTaskDialog;
begin
Dlg := TTaskDialog.Create(NIL);
try
Dlg.MainIcon := tdiWarning;
Dlg.Caption := 'WARNUNG';
Dlg.Title := Message;
Dlg.CommonButtons := [tcbClose];
Dlg.Execute;
finally
Dlg.Free;
end;
end;
Grüße und weiter Erfolg
TurboMagic