FMainMenu:=(BorlandIDEServices as INTAServices).MainMenu;
//我们用 INTAServices的MainMenu属性直接得到了IDE的主菜单
FImageList:=(BorlandIDEServices as INTAServices).ImageList;
//我们用 INTAServices的ImageList属性直接得到了IDE的图象列表
NewMenu:=TMenuItem.Create(FMainMenu);
//创建我们的菜单
NewMenu.Caption:=''''hk.barton'''';
ImageIndex1:=-1;//没有载入图标
//下面的代码使用for和case来添加两个菜单项有点小题大作,但
//我们展示了一种更通用的方法使你能够添加更多的菜单项,而不必简单的复制代码。
for i:=0 to 2 do
begin
MenuItem[i]:=TMenuItem.Create(NewMenu);//创建子菜单项
case i of
0:
begin
MenuItem[i].Caption:=''''InsertText'''';
Icon1:=TIcon.Create;
try
Icon1.LoadFromFile(''''D:\MyWorks\MyComponent\OTATest\NewForm.ico'''');
//我从硬盘的文件上载入了一个图标作为菜单项一的图标
except
On E:Exception do
begin
raise Exception.Create(E.Message);
exit;
end;
end;
ImageIndex1:=FImageList.AddIcon(Icon1);
//加入那个载入的图标并返回一个ImageIndex
MenuItem[i].ImageIndex:=ImageIndex1;
MenuItem[i].OnClick:=ReCodeEditer;//添加事件处理程序
end;
1:MenuItem[i].Caption:=''''-'''';//当然还有一个分割符号,其实是3个菜单项
2:
begin
MenuItem[i].Caption:=''''About'''';
上一页 [1] [2] [3] [4] [5] [6] 下一页 [办公软件]Word编程之WindowActivate、DocumentOpen和Docume… [电脑技术]HP打印复印机出现Jam in print pager path和op… [系统软件]InstallShield Express for delphi制作安装程序定… [系统软件]OPEN SERVER 5.0.5安装EXP300阵列柜 [常用软件]InstallShield Express制作Delphi数据库安装程序 [常用软件]Open Desktop 开放着 美丽着 [常用软件]族门新秀:ACD mPower Tools [常用软件][媒体]虚拟光驱Daemon Tools实用教程 [Delphi程序]为什么选择Delphi.Net ? [Delphi程序]《关于VisiBroker For Delphi的使用》(4)
|