procedure TForm1.Button1Click(Sender: TObject);
var
MainMenu:TMainMenu;
MenuItem:TMenuItem;
begin
//创建主菜单对象,并设置主窗口的菜单为MainMenu对象
MainMenu:=TMainMenu.Create(Self);
Self.Menu:=MainMenu;
//创建MainMenu主菜单的第一级菜单对象 MainMenu.Items.Add
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='一级菜单';
MainMenu.Items.Add(MenuItem);
//创建MainMenu主菜单的第二级子菜单对象 MainMenu.Items[0].Add
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='二级菜单';
MainMenu.Items[0].Add(MenuItem);
//创建MainMenu主菜单的第三级子菜单对象 MainMenu.Items[0].Items[0].Add
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='三级菜单';
MainMenu.Items[0].Items[0].Add(MenuItem);
// 用Items[0]...这种形式，可以创建 四级、五级直到N级菜单都可以
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='四级菜单';
MainMenu.Items[0].Items[0].Items[0].Add(MenuItem);
end;
【Delphi动态创建MainMenu和PopupMenu菜单的方法】//弹出菜单事件
procedureTForm1.Button1Click(Sender:TObject);
var
pm:TPopupMenu;
mi:TMenuItem;
begin
pm:=TPopupMenu.Create(self);
mi:=TMenuItem.Create(self);
mi.Caption:='新建(&N)';
pm.Items.Add(mi);
mi:=TMenuItem.Create(self);
mi.Caption:='打开(&O)';
pm.Items.Add(mi);
mi:=TMenuItem.Create(self);
mi.Caption:='-';
pm.Items.Add(mi);
mi:=TMenuItem.Create(self);
mi.Caption:='退出(&X)';
pm.Items.Add(mi);
mi.OnClick:=miClick;
Button1.PopupMenu:=pm;
end;
//在类里定义
procedureTForm1.miClick(Sender:TObject);
begin
Close;
end;
在系统菜单中添加自新选项：
Append（GetSystemMenu（handle，false），MF_SEPARATOR，0,'');
Append(GetSystemMenu(handle,false),MF_STRING,200,'About(&A)');
WM_SysCommand消息处理函数
procedure SystemMenuCommand(var Msg:TWMMENUSELECT);
message WM_SysCommand;
procedure TForm1.SystemMenuCommand(var Msg:TWMMENUSELECT);
begin
if Msg.IDItem=200 then
Form2:=TForm2.Create(Application);
Form2.Show;
Form2.Update;
end;
inherited;
end;
推荐阅读
- Pascal基础语法(一)
- delphi|Delphi编写网络程序的安全措施
- 发送手机短信代码
- Delphi中WebBrowser判断页面及JS是否加载完成
- delphi idhttpserver ajax 跨域
- Delphi中WebBrowser判断页面及JS ajax是否加载完成-转
- Delphi|APP 多张图片滑动显示 - 之二