delphi 动态创建窗体_创建快捷菜单需要哪些控件「建议收藏」

delphi 动态创建窗体_创建快捷菜单需要哪些控件「建议收藏」procedureTForm1.Button1Click(Sender:TObject);varMainMenu:TMainMenu;MenuItem:TMenuItem;begin//创建主菜单对象,并设置主窗口的菜单为MainMenu对象MainMenu:=TMainMenu.C

大家好,欢迎来到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

(0)

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注

关注微信