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;