ms的Agent动画人物,怎么加入鼠标右击事件? 如题? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你应该到vb版去提这个问题,它的代码是vb的好几个月以前琢磨过这东西,现在都忘了,有个专门可视化编这个的软件叫MASHPLAY还是什么来着,你可以用那个,很方便的 偶是用delphi来调用人物,然后想添加右键事件,再回调delphi写的函数,望大虾们赐教 小弟发现这个函数可以的OnCommand(Sender: TObject; const UserInput: IDispatch);但是在函数中不知道怎么从UserInput中获取到自己的信息,delphi中是否有某个类负责啊,像mfc中的COleDispatchDriver这个类的功能,望大虾指点 procedure TForm1.Button1Click(Sender: TObject); begin MonAgent.LanguageID:=$409; MonAgent.Commands.Add('mailbox', 'Lancer Outlook Express', '(courriel),', true, true); MonAgent.Commands.Add('notepad', 'Lancer le bloc notes', '(notepad)', true, true); end;uses ShellAPI; procedure TForm1.Agent1Command(Sender: TObject; const UserInput: IDispatch); var CommandName : string;begin CommandName := IAgentCtlUserInput(UserInput).Name; if CommandName = 'notepad' then ShellExecute(handle, 'open', 'notepad', nil, nil, SW_NORMAL) else if CommandName = 'mailbox' then ShellExecute(handle, 'open', 'msimn', nil, nil, SW_NORMAL); end; 楼上的兄弟:我运行后出现如下错误信息,请帮忙解决!谢谢! [Error] Unit1.pas(31): Undeclared identifier: 'LanguageID' [Error] Unit1.pas(32): Undeclared identifier: 'Commands' [Error] Unit1.pas(33): Undeclared identifier: 'Commands' >>'LanguageID' 不用也可!'Commands' 是對應到角色的, 你要大概用如下:Agent1.Characters.Character('Peedy').Commands.Add()而不是直接用 Agent1, 看你選用那個 Character Agent1.Characters.Item['myagent'].Commands.Add('Hello','Hello', 'Hello',TRUE,TRUE); 非常感谢aiirii(ari-爱的眼睛)老兄,当然也感谢各位的关注小弟无以为报,现将分数送上 保存文件使用write和read的方法,不能完全读取出来 转-每个苦逼的设计师背后都有一群指点江山的神 散分,顺便找本书 adode的问题???????????? 一定要安装sql2000才可以用么 关于webserivce接口控制问题,详细内容看内容,提出思路即给分 求:界面美化熟手 如何读法某个DFM文件中某个TComponent? 这句SQL该怎么写? 怎样得到查找结果? 求救!!!!!!!!如何在delphi7下安装delphix 请教。关于编译后的提示问题
然后想添加右键事件,
再回调delphi写的函数,
望大虾们赐教
OnCommand(Sender: TObject; const UserInput: IDispatch);但是在函数中不知道怎么从UserInput中获取到自己的信息,
delphi中是否有某个类负责啊,像mfc中的COleDispatchDriver这个类的功能,
望大虾指点
begin
MonAgent.LanguageID:=$409;
MonAgent.Commands.Add('mailbox', 'Lancer Outlook Express', '(courriel),', true, true);
MonAgent.Commands.Add('notepad', 'Lancer le bloc notes', '(notepad)', true, true);
end;uses ShellAPI; procedure TForm1.Agent1Command(Sender: TObject; const UserInput: IDispatch);
var
CommandName : string;
begin
CommandName := IAgentCtlUserInput(UserInput).Name;
if CommandName = 'notepad' then
ShellExecute(handle, 'open', 'notepad', nil, nil, SW_NORMAL)
else if CommandName = 'mailbox' then
ShellExecute(handle, 'open', 'msimn', nil, nil, SW_NORMAL);
end;
[Error] Unit1.pas(31): Undeclared identifier: 'LanguageID'
[Error] Unit1.pas(32): Undeclared identifier: 'Commands' [Error] Unit1.pas(33): Undeclared identifier: 'Commands'
'Commands' 是對應到角色的, 你要大概用如下:
Agent1.Characters.Character('Peedy').Commands.Add()而不是直接用 Agent1, 看你選用那個 Character
'Hello',TRUE,TRUE);
当然也感谢各位的关注
小弟无以为报,
现将分数送上