| 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] 下一页 | 
