Probleme script delphi

Question

Bonjour à tous ;) 
Première fois que je post sur se forum alors je ne sais pas si je suis au bon endroit mais voici mon problème 

Je voudrait test un script Delphi mais il m'indique une erreur et je ne voit pas pourquoi 
Voici le script ( la ligne en rouge correct a lerreur 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, AgentObjects_TLB;

type
  TForm1 =  class(TForm)
    Agent1: TAgent;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  Peedy: IAgentCtlCharacterEX;

implementation

{$R *.dfm}

 procedure TForm1.FormShow(Sender: TObject); 
begin
  Agent1.Connected: =True;
  Agent1.Characters.Load('Peedy', 'Peedy.acs');// chargement du personnage Peedy
                                               // (Characters en anglais veut dire Personnages)
  Peedy:=IAgentCtlCharacterEX(Agent1.Characters.Character('Peedy'));
// Ainsi Peedy représentera, parmi tous les personnages que contient Agent1
                                               // le personnage Peedy chargé précédemment
  Peedy.Show(False);                           // Pour le faire apparaître.
end;

end.

beckerich · Answer

Bonsoir

la ligne

procedure FormShow(Sender: TObject);

manque dans la déclaration de la classe TForm1

Luc.

Caribensila · Answer

Salut,

Clique sur ta fiche
Puis tu vas dans l'inspecteur d'objet.
Onglet 'Evénement'
Clique 2 fois à droite de l'événement 'OnShow' ...

Bacterius · Answer

Hors sujet : ça se dit, un "script delphi" ?

Cordialement, Bacterius !

Probleme script delphi

3 réponses

Votre réponse

Discussions similaires