Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Problem mit MS Agents (https://www.delphipraxis.net/81140-problem-mit-ms-agents.html)

-=cats=- 21. Nov 2006 12:47


Problem mit MS Agents
 
Hi :hi:

Ich habe mal wieder ein kleines Problem.
Ich verwende auf meiner Form die MS Agents. Besser gesagt,
einen von ihnenn (Peedy).
Jetzt hab ich mir überlegt, ist doch klasse wenn der auftaucht
während man auf einen Button klickt.
Funktioniert auch ...
Das Problem ist allerdings, wenn ich ein zweites Mal auf diesen
Button klicke, dann stürzt mir alles ab :-(

Hier mal der Code:

Delphi-Quellcode:
procedure TForm13.JvXPBar1Click(Sender: TObject);
begin
Agent1.Characters.Load('Peedy', 'peedy.acs');
  with Agent1.Characters.Item['Peedy'] do begin
   show(0);
   MoveTo(JvXPBar1.Left - 80, JvXPBar1.Top + 200, 0);
   Speak('Um die \emp\Toolbar einzublenden, klicken Sie auf \emp\"Toolbar" !', '');
   GestureAt(JvXPBar1.Left - 80, JvXPBar1.Top);
   hide(0);
  end;
end;
Liegt es vielleicht daran, das ich jedes mal den Agenten lade ?
Kann ich das irgendwie verbessern ?

Schon mal vielen Dank für Eure Hilfe !

Gruß,
-=cats=- :coder:



Ok, ich habe das Problem scheinbar gelöst.
Man darf den Agenten wirklich nur 1x laden ...


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:27 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf