如何做成象office助手那样请高手指教,用什么方法

解决方案 »

  1.   

    用一个TImageList控件,然后你动态的调用其中的任何一个。
    如动画都需要你自己控制的话,那你再写一个image移动位置的函数。
      

  2.   

    你这样做:
      1:在计算机中,搜索“Peedy.acs"
      2:Delphi 中添加 MicroSoft Agent2.0
      3:在窗体中放入 TAgent控件
      4:组织代码
       private
         b:OleVariant;   var
         Form1: TForm1;
         a:IAgentCtlCharacter;
         d:agent;//IAgentCtlCharacterEx;
       implementationprocedure TForm1.FormCreate(Sender: TObject);
    Var
      sPath:String;
      i:Smallint;
    begin
     sPath:=ExtractFilePath(Application.ExeName)+'Peedy.acs';
     Agent.Characters.Load('Peedy',sPath);
     Agent.Connected:=True;
    end;procedure TForm1.ShowBtnClick(Sender: TObject);
    begin
     Agent.Characters.Character('Peedy').Show(b);
     Agent.Characters.Character('peedy').Speak('松树吗?,你好高哦!,我好想你幼苗的样子哦!!!',b);
     sleep(2000);
     Agent.Characters.Character('peedy').Speak('你知道吗?你不在我身边的这些日子'+#13+',我时时刻刻都在想你哦!!!',b);
     sleep(1000);
     Agent.Characters.Character('peedy').Play('Greet');
    end;
    --------------------------------
    以上给你提供一个途径,具体怎么发挥自己努力实现
      

  3.   

    你装了office,里面有助手然后在Activex里面添加MicroSoft Agent2.0控件微软的网站有助手可以下载的