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:

Zitat von FAlter

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

Ja klar. :wall:
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;

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Neuen Beitrag zur Code-Library hinzufügen" nach "VCL / WinForms / Controls" verschoben.
Da es nichts für die CL ist, schiebe ich das Thema hier hin. Evtl. hilft der Beitrag anderen. :)