TMainMenu IN TMainMenu

[Gast]

Hallo 8)

Ich habe ein Hauptformular und ein Kind-Formular. Auf dem Hauptformular befindet sich ein Menu (Menu1) (TMainMenu). Auf dem Kind-Formular befindet sich auch ein Menu (Menu2) (TMainMenu) und wird (falls Kind aktiv) in das Menu1 des Hauptformulars automatisch eingebetet.

Das Problem ist folgendes:

Auf dem Kind-Formular befindet sich ein PageControl und je nach PageControl -Seite die man dort auswählt sollten nicht alle Menue-Punkte aus dem Menu2 auf Enabled = TRUE stehen. Also am einfachsten gesagt die Menue-Punkte (TMenuItem) aus dem Menu2 müssen angesteuert werden (mal ENABLED = FALSE mal ENABLED = TRUE).

Dazu habe ich das OnChange- Ereignis von Menu2 (also auf dem Kind-Formular) benutzt.

Leider schon die einfachste Zuweisung

Code:

procedure Form2.Menu2Change(Sender: TObject; Source: TMenuItem; Rebuild: Boolean);
BEGIN
  MenuItem1.Enabled := FALSE; 
  MenuItem1.Enabled := TRUE;
END;

bringt das Ganze zur einer Exception.

Wohl gemerkt zu diesem Zeitpunkt ist das Menu2 schon in das Menu1 auf dem Hauptformular eingebetet...

Wer weiß Bescheid? :idea:

Gruß

Paul Jr.

[Gast]

Hat sich erledigt... 8)

Gruß

Paul Jr.