Ausführen eines Dialogs verhindern

[lorenz]

Tut mir leid, aber mir gefällt das nicht, dass in der Symbolleiste die Hälfte der Icons Enabled=false sind, da man dann nur noch graue Schatten erkennen kann. Ich mach's jetzt halt so:

Delphi-Quellcode:

procedure Thauptfenster.ToolButton3Click(Sender: TObject);
begin
if mdichildcount>0 then schliessenExecute(sender);
end;

MfG

Lorenz