Microsoft Agent Control di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

MS Agent di Delphi. mungkin ada yang tau ada juga yang belum tau itu loh salah satunya Agent Merlin, liat aza gambar dibawah ini.

Pertama Anda Import dulu ActiveX'ya. Gambar 1.

Gambar 1

Kedua Pilih Microsoft Agen Control 2.0, Gambar2

Gambar 2

Ketiga Mending langsung OK aza biar cepet. :)

Gambar 3

Keempat Jika muncul seperti gambar dibawah,Pilih Yes dan yes Pokonya. Gambar 4

Gambar 4

Kelima maka akan muncul komponent MS Agent pada Tab ActiveX

Untuk Listingnya silahkan Dibaca,Dilihat,Dipelajari :

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, AgentObjects_TLB, StdCtrls; type TForm1 = class(TForm) Agent1: TAgent; Button1: TButton; Button2: TButton; Button3: TButton; lbl1: TLabel; procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Agent1.Characters.Load('Merlin', 'merlin.acs'); with Agent1.Characters.Item['Merlin'] do begin Show(0); end; end; procedure TForm1.Button2Click(Sender: TObject); begin Agent1.Characters.Character ('Merlin').Play('read'); end; procedure TForm1.Button1Click(Sender: TObject); begin Agent1.Characters.Character ('Merlin').Speak ('Terima Kasih Telah Berkunjung !!',''); end; procedure TForm1.Button3Click(Sender: TObject); begin Agent1.Characters.Character ('Merlin').Think('Andai Aku jadi raja ?'); end; procedure TForm1.FormShow(Sender: TObject); begin Agent1.Characters.Character('merlin').MoveTo(600,360,100); end; end.

Copas Sertakan Link Sumber : xtreme23koe.blogspot.com.

SEKIAN !!