Delphi动态创建MainMenu和PopupMenu菜单的方法
来源:互联网 发布:华为软件开发云 编辑:程序博客网 时间:2024/04/29 21:58
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;
//弹出菜单事件
procedure TForm1.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;
// 在类里定义
procedure TForm1.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;
- Delphi动态创建MainMenu和PopupMenu菜单的方法
- Delphi动态创建菜单
- delphi创建动态菜单
- 创建下拉菜单--PopupMenu
- 动态创建popupmenu
- 使用PopupMenu创建弹出式菜单
- 设置PopupMenu创建弹出式菜单
- VC实现动态菜单的创建方法
- 弹出菜单PopupMenu的使用
- 弹出菜单 PopupMenu 的使用
- delphi 入门之《动态创建菜单》
- delphi TDbGrid 右键 PopupMenu 菜单只在有数据的地方弹出
- 动态菜单的创建
- PopupMenu和ContextMenuStrip右键菜单使用
- 菜单(五)ActionMode和PopupMenu
- 11 PopupMenu菜单和代码例子
- Android中的菜单OptionsMenu,ContextMenu和PopupMenu
- Delphi里!PopupMenu菜单后面自动加了字母
- 47款 Android UI 组件开源软件
- 多线程断点下载器
- SVN服务器搭建和使用(二)
- 从程序员到CTO的Java技术路线图
- 多线程
- Delphi动态创建MainMenu和PopupMenu菜单的方法
- 第六章 Django管理站点
- POJ1328解题报告
- 工作一年之回顾总结展望
- Android 通过按钮Button更改全部的TextView、EditText、Button的字体大小、字体颜色、背景颜色
- 导入android自带的sample源码后gen目录下没有生成R.java
- 清华博士在沪当电力工人 成了拧螺丝最多的人
- Cocos2d-x 中 CCNotificationCenter 的使用
- json解析到listview