Er kann auch die protected Methode UpdateActions der MDIForm benutzen und prüfen, ob MDIChildCount > 0 ist.
Delphi-Quellcode:
...
type
TForm1 = class(TForm)
...
protected
procedure updateActions; Override;
...
end;
...
procedure TForm1.UpdateActions;
begin
Drucken.Enabled := (MDIChildCount > 0);
end;