Have a menu in any form

This article has not been rated yet. After reading, feel free to leave comments and rate it.

When I was working on the expert for TMultiLang, I needed 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.

This means:
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.

Workaround:
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;

Comments:

Email address (not necessary): Rate as Off-topic Very Helpful Helpful Ok article Not useful Very bad	Hide my email when showing my comment. Please notify me once a day about new comments on this topic. Please provide a valid email address if you select this option.
It seems that you are from Washington, US . Info/ Feedback on this	Show city and country Show country only Hide my location
You can mark text as 'quoted' by putting [quote] .. [/quote] around it.
Please type in the code:
Add a picture: Please do not post inappropriate pictures. Inappropriate pictures include pictures of minors and nudity. The owner of this web site reserves the right to delete such material.