Ofis yardımcısı animasyonunu programımızda nasıl yaparız

[NewMember]

Arkadaşlar ofis programlarındaki gibi bir ofis yardımcısı animasyonunu nasıl yapabiliriz bilgisi olan varmı?
teşekkürler.

[vkamadan]

Merhaba ,
Microsoft Agent ActiveX nesnesini eklerseniz. istediğinizi yapabilirsiniz.
Konuyla ilgi makale yazmayı düşünüyorum.

[t-hex]

http://www.delphiarea.com/products/#Office_Assistant

Bunu bir inceleyin. Aktör düzenleyicisi falanda var.

[White Rose]

unit Agent_p;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, ExtCtrls, ComCtrls, StdCtrls, OleCtrls, AgentObjects_TLB, Spin;

type
TAnaform = class(TForm)
Cbx_Play: TComboBox;
Agent : TAgent;
Button1 : TButton;
Button2 : TButton;
Button4 : TButton;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
CheckBox1 : TCheckBox;
SpeedButton1: TSpeedButton;
OpenDialog1 : TOpenDialog;
Crcid1 : TSpinEdit;
Balon : TSpinEdit;
Label6 : TLabel;
Button3: TButton;
Button5: TButton;
Konus : TMemo;
Button6: TButton;
Button7: TButton;
Label2 : TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Crcid1Change(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Anaform: TAnaform;
C:string;
MyAgent:IAgentCtlCharacterEx;
Crcid :Integer;

implementation

{$R *.DFM}

procedure TAnaform.FormShow(Sender: TObject);

begin
Randomize;
Cbx_Play.ItemIndex:=0;
C:='Merlin';
Agent.Connected :=TRue;
Agent.Characters.Load(C,C+'.acs');
MyAgent :=Agent.Characters.Character(C);
Myagent.LanguageID :=Crcid1.Value;
//Myagent.Set_LanguageID(Crcid1.Value);
Myagent.Balloon.Style :=Balon.value;
Myagent.SoundEffectsOn:=Checkbox1.Checked;
Myagent.Show(0);
Myagent.MoveTo(strtoint(edit1.text),strtoint(edit2.text),10);
Myagent.Play('Greet');
Myagent.Speak('Selamun Aleykum','');
Myagent.Speak('Fazla Turkce bilmiyorum kusura bakmayin','');
//Myagent.Speak(Caption,'d:\Sesler\Phone.wav');
end;

procedure TAnaform.Button1Click(Sender: TObject);
var
S:Integer;
begin
Try
S:=Random(Cbx_play.items.count);
Cbx_Play.ItemIndex:=s;
Myagent.Play(Cbx_Play.items[s]);
caption:=Cbx_Play.items[s];
//Myagent.Think(Edit3.text);
Myagent.Speak(Caption,'');
except
end;
end;

procedure TAnaform.Button2Click(Sender: TObject);
begin
agent.Characters.Unload(c);
close;
end;

procedure TAnaform.Button3Click(Sender: TObject);
begin
Myagent.Play(Cbx_Play.items[cBX_PLAY.itemindex]);
Myagent.ShowPopupMenu(left+button3.left,top+button3.top+button3.height);
end;

procedure TAnaform.Button4Click(Sender: TObject);
begin
OpenDialog1.Execute;
if OpenDialog1.FileName<>'' then begin
agent.Characters.Unload(c);
C:=extractfilename(OpenDialog1.FileName);
agent.Characters.Load(C, OpenDialog1.FileName);
MyAgent:=Agent.Characters.Character(C);
Myagent.Set_LanguageID(Crcid1.Value);
Myagent.Balloon.Style:=Balon.value;
Myagent.SoundEffectsOn:=True;
Myagent.Show(0);
end;
end;

procedure TAnaform.SpeedButton1Click(Sender: TObject);
begin
Agent.ShowDefaultCharacterProperties(100,100);
end;

procedure TAnaform.CheckBox1Click(Sender: TObject);
begin
Myagent.SoundEffectsOn:=CheckBox1.Checked;
end;

procedure TAnaform.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TAnaform.Crcid1Change(Sender: TObject);
begin
Crcid:=Crcid1.value;
myagent.LanguageID:=Crcid;
Button1Click(Sender);
end;

procedure TAnaform.Button5Click(Sender: TObject);
begin
Myagent.Speak(Konus.Text,'');
end;

procedure TAnaform.Button6Click(Sender: TObject);
begin
Myagent.MoveTo(strtoint(edit1.text),strtoint(edit2.text),10);
end;

procedure TAnaform.Button7Click(Sender: TObject);
begin
Myagent.Think(Edit3.text);
end;


end.