在MS AGENT的popup menu中,我如何让它执行相应的操作(50分)

  • 主题发起人 主题发起人 高江峰
  • 开始时间 开始时间

高江峰

Unregistered / Unconfirmed
GUEST, unregistred user!
我自己建立了一个弹出菜单,但是我不知道怎样让它执行相应的操作,查了MSDN后,提示说在agent的command的事件中,有一个idispatch类型的变量,不知道该如何使用
,请指教,另外一个窗体,我在onclose时间中加入了action;=cahide没有任何效果,为什么
 
>>执行相应的操作

右键点击,会触发oncommand事件,
这个事件会给你一个idispatch对象
你把它转为 idispatch as iAgentCtlUserInput接口
在调用iAgentCtlUserInput.name即可获得点击菜单的标题!
然后你就handle事件啦!
 
可以来一个例子吗,谢谢了
 
如果你是想关闭mdi子窗体可以在onclose中加入action:=cafree;
至于你的agent,我很想知道你是怎么给它加popupmenu的,好像agent控件没有popopmenu属性呀
 
在Agent的click事件里定义自己的弹出菜单
procedure TSBMainForm.SBAgentClick(Sender: TObject;
const CharacterID: WideString
Button, Shift, x, y: Smallint);
begin
if Button=2 then
PopupMenu2.Popup(x,y);
end;
 
后退
顶部