TMainMenu unsichtbar machen

[shmia]

Mit folgender Procedure kann man ein Hauptmenü (TMainMenu) unsichtbar werden lassen.
Und natürlich auch wieder einblenden.

Delphi-Quellcode:

procedure SetMainMenuVisible(menu:TMainMenu;  visible:Boolean);
begin
   if visible then
      SetMenu(menu.WindowHandle, menu.Handle)
   else
      SetMenu(menu.WindowHandle, 0);
end;

[FAlter]

Hi,

bei VCL-Projekten: wenn die Eigenschaft Menu des Formulars auf nil gesetzt ist, wird auch kein MainMenu angezeigt. Und das lässt sich schon zur Entwurfszeit einstellen.

Mfg
FAlter

[edit] TForm.Menu, nicht MainMenu [/edit]

[Muetze1]

Gilt dieser Einwurf denn auch für diesen Code? Schliesslich wird hier die Eigenschaft Menu von TForm nicht angefasst.

[shmia]

Zitat von FAlter:

.. wenn die Eigenschaft Menu des Formulars auf nil gesetzt ist, wird auch kein MainMenu angezeigt.

Ja klar.
Damit hat sich die Sache schon erledigt. Ich ziehe den Betrag zur CL zurück.

Delphi-Quellcode:

// Menu ausblenden
self.Menu := nil;  // self ist hier das Formular
// Menu einblenden
self.Menu := MainMenu1;