MainMenu Items deaktivieren MDI Anwendung

[andianon]

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