大家好,欢迎来到IT知识分享网。
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;
免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://yundeesoft.com/29169.html