Mirror

Have a menu in any form (Views: 100)


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;

<< Back to main page