我是继承TCnSubMenuWizard写的
菜单创建代码如下:
procedure TCnSampleSubMenuWizard.AcquireSubActions;
begin
IdTool_GetP := RegisterASubAction('GetVSSProject', '获取工程', 0, '获取工程', 'GetVSSProject');
IdTool_CreateDir := RegisterASubAction('CreateDir', '获取本地路径', 0,'生成本地路径', 'CreateDir');
AddSepMenu;
IdTool_CheckOutP := RegisterASubAction('CheckOutVSSProject', '签出工程', 0,'签出工程', 'CheckOutVSSProject');
IdTool_CheckInP := RegisterASubAction('CheckInVSSProject', '签入工程', 0,'签入工程', 'CheckInVSSProject');
AddSepMenu;
IdConfig := RegisterASubAction('VssOption','VSS配置', 0, '配置VSS信息', 'VssOption');
end;
|