Hello wenchester 21
1 - How to create menus on another form than Form1 (main form)
procedure Form1_OnShow (Sender: string; Action: string); // event OnShow
var
MyItem1: TMenuItem;
MyItem2: TMenuItem;
MySubItem3: TMenuItem;
MenuForm2: TMainMenu;
begin
MyItem1 := TMenuItem.Create (Form2);
MyItem1.Caption := 'MyItem1';
MyItem1.OnClick := @MenuClick1;
MyItem2 := TMenuItem.Create (Form2);
MyItem2.Caption := 'MyItem2';
MySubItem3 := TMenuItem.Create (Form2);
MySubItem3.Caption := 'Submenu';
MySubItem3.OnClick := @MenuClick3;
MenuForm2 := TMainMenu.Create(Form2); // Create MainMenu on Form2
MenuForm2.Items.Add(MyItem1); // you can use ADD or INSERT
MenuForm2.Items.Insert(0, MyItem2); // you can use ADD or INSERT
MyItem2.Add(MySubItem3);
end;
procedure MenuClick1 (Sender: string);
begin
ShowMessage('Hello from MyItem1');
end;
procedure MenuClick3 (Sender: string);
begin
ShowMessage('Hello from Submenu');
end;
begin
end.
JB