Have a menu in any form (Views: 29)
Problem/Question/Abstract: I need to display a menu in the expert's "main" form. Now this form was created with TForm1.Create() and therefore not an application's main window. Answer: Although the menu is displayed in design mode properly, at runtime it will not appear. Even manually assigning the menu with Menu := MainMenu will not help. Use the API function SetMenu in the FormCreate handler as shown below: procedure TForm1.FormCreate(Sender: TObject); var h: integer; begin h := ClientHeight; SetMenu(Handle, MainMenu1.Handle); ClientHeight := h; end; |