Topic: [Script] Create your own menu on the main form
Create your own menu on the main form
procedure Form1_OnShow (Sender: string; Action: string); // event OnShow
var
MyItem1: TMenuItem;
MyItem2: TMenuItem;
MySubItem3: TMenuItem;
begin
MyItem1 := TMenuItem.Create (Form1.MainMenu);
MyItem1.Caption := 'Item1';
MyItem1.OnClick := @MenuClick1;
MyItem2 := TMenuItem.Create (Form1.MainMenu);
MyItem2.Caption := 'Item2';
MySubItem3 := TMenuItem.Create (Form1.MainMenu);
MySubItem3.Caption := 'Submenu';
MySubItem3.OnClick := @MenuClick3;
Form1.mniFile.Insert(0, MyItem1);
Form1.MainMenu.Items.Insert(0, MyItem2);
MyItem2.Add(MySubItem3);
end;
procedure MenuClick1 (Sender: string);
begin
ShowMessage('Hello from MyItem1');
end;
procedure MenuClick3 (Sender: string);
begin
ShowMessage('Hello from subitem');
end;
begin
end.
Download project 1:
http://myvisualdatabase.com/forum/misc. … download=1
Download project 2:
http://myvisualdatabase.com/forum/misc. … download=1
Dmitry.