Ich hoffe, ich hab das richtig verstanden: Wenn Fenster aktiv, Menüpunkt aus, sonst an.
In der OnClick-Routine des Menüs (z.B: Menü mnBearbeiten mit dem Menüpunkt mniMyMenuItem):
Delphi-Quellcode:
procedure TfMain.mnBearbeitenClick(Sender: TObject);
var
mdiChild : TForm;
begin
// Aktives MDI-Fenster ermitteln
mdiChild := self.ActiveMDIChild;
// Wenn es ein aktives MDI-Fenster gibt,...
if Assigned(mdiChild)
then begin
// Wenn das aktive MDI-Fenster das meinige ist,...
if mdiChild = fMyForm
then
mniMyMenuItem.Enabled := FALSE
// Wenn das aktive MDI-Fenster nicht das meinige ist,...
else
mniMyMenuItem.Enabled := TRUE;
end;
...
end