【文件属性】：
文件名称：Delphi 利用ActiveX控件实现Office助手.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 11:00:49
Delphi源码-多媒体编程
Delphi 利用ActiveX控件实现Office助手，这个助手用过Word大概都见到过，类似墨林小人一样的动画，会眨眼，弹出提示，会做出一些向下看，寻找东西，聆听、警告等小动作，本源码基于ActiveX控件实现，可熟悉下ActiveX控件的用法，在Delphi中可以定义墨林，如下代码示：
procedure TForm1.FormCreate(Sender: TObject);
begin
WS[0]:='Acknowledge';
WS[1]:='LookDown';
WS[2]:='Sad';
WS[3]:='Alert';
WS[4]:='LookDownBlink';
WS[5]:='Search';
WS[6]:='Announce';
WS[7]:='LookUp';
WS[8]:='Think';
WS[9]:='Blink';
ICR:= Agent1.Characters.Load('merlin','merlin.acs');
ICCE:=Agent1.Characters.Character('merlin');
ICCE.Show(0);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ICCE.StopAll('');
ICR:=ICCE.Play(WS[ListBox1.ItemIndex]);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Agent1.Characters.Unload('Merlin');
end;
【文件预览】：
srcfans.com
----0321()
--------Project1.res(876B)
--------Unit1.dfm(2KB)
--------Unit1.ddp(33B)
--------Project1.cfg(434B)
--------Unit1.pas(1KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(6KB)