Xtreme23Koe: 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 !!

Xtreme23Koe

Pages

Microsoft Agent Control di Delphi

2 comments: