Delphi 利用ActiveX控件实现Office助手.rar

时间:2022-07-30 11:00:49
【文件属性】:

文件名称: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)

网友评论