在使用TAgent ActiveX控间建立一个IAgentCtlCharacter角色,它的Get方法如何使用?角色使用的*.acs文件如何建立——即如何自定义角色?希望各位高手指点。
解决方案 »
- delphi中做超链接为什么要加入shellapi系统单元呢?
- 我在自已的电脑开发的程序能运行,复制去别的机子就不能运行了,怎么解决?
- 存储过程:请教"语法错误或违反访问规则"是怎么回事啊?
- 哪位大侠有免费的TCAD,找遍了全世界都要钱,烦!!!
- COM入门问题?
- 为何我的PopMenu的快捷键不能生效?
- 请教IdTcpServer,IdTcpClient;IdUdpServer,IdUdpClient的用法?
- 软件公司招聘
- 高分求助?
- 急急急!为什么用database和query连的数据库每次运行都弹出数据库登陆框?
- 欢迎Delphi高手加入群聊!
- 如何获取RASAPI32.DLL的声明函数
Agent.Characters.Load('DOLPHIN',ApplicationPath+'DOLPHIN.ACS');
AgentMode:=1;
except
AgentMode:=0;
end;
if AgentMode=1 then
begin
Agent.Characters.Item['DOLPHIN'].MoveTo(Screen.Width-200,50,0);
Agent.Characters.Item['DOLPHIN'].Show(False);
Agent.Characters.Item['DOLPHIN'].Stop(AgentStop);
Agent.Characters.Item['DOLPHIN'].Play('Greeting');
end;
给你一段代码自己看看吧
在下面的网页有介绍:
http://www.csdn.net/develop/Read_Article.asp?Id=11413
http://www.csdn.net/develop/Read_Article.asp?Id=15875
http://www.csdn.net/develop/Read_Article.asp?Id=252
AgentWidth := Peedy.Get_Width;
Peedy.Set_Height( round(AgentHeight / 2 ));
Peedy.Set_Width( round( AgentWidth / 2 ));
不知道你看过没有,其实和定位窗体是一个意思,至于调用角色就是下面了下面的是初始化Agent,加载动画数据,卸载动画人物
Request1 := MyAgent.Characters.Load( 'Peedy', 'C:\Windows\System\Peedy.acs' );
Peedy := MyAgent.Characters.Character( 'Peedy' );
MyAgent.Characters.Unload('Peedy');