Discussion :

[Ytech123]

Bonjour

Malgres les instructions du FAQ : "Comment ajouter un évènement à un composant créé dynamiquement ?"
dans mon cas :
1 ere etape :déclarer l'évènement dans la déclaration de votre classe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
type
TForm1 = class(TForm)
  Panel1: TPanel;
  Btconnect: TButton;
  procedure FormCreate(Sender: TObject);
  procedure BtconnectClick(Sender: TObject);
  procedure BtenvoiClick(Sender: TObject);
  private
  { Déclarations privées }
  public
  { Déclarations publiques }
  procedure comportAafteropen (sender : tobject);
  procedure comportARxChar(sender : tobject; count: integer);
end;
 
2eme etape: le code de l'évènement : 
procedure comportAafteropen (sender : tobject);
begin
  form1.btenvoi.enabled :=true;
  form1.Btconnect.Enabled := false;
end;

3eme etape : associer l'évènement au moment de la création des composants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  comportA := tcomport.Create(self);
  with comportA do
  begin
    onafteropen := comportAafteropen;
    onRxChar := comportARxChar;
  end;
end;

j'ai un message d'erreur lors de la compilation:
[Pascal Erreur] RS232.pas(34): E2065 Déclaration forward ou external non satisfaite : 'TForm1.comportAafteropen'

voila pour mon code en esperant que mon message soit suffisament lisible.
Visiblement j'ai du rater quelque chose mais là je besoin de vos lumiere car je n'avance plus.
pour info j'utilise turbo delphi 2006 explorer et je suis novice merci d'avance pour votre indulgence.
cordialement
ytech

[Kaféine]

salut

procedure comportAafteropen (sender : tobject);

il manque tform1 a la declaration de la méthode

[Ytech123]

OK ça marche :

2eme étape: le code de l'évènement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure tform1.comportAafteropen (sender : tobject);
begin
  form1.btenvoi.enabled :=true;
  form1.Btconnect.Enabled := false;
end;

merci de cette réponse si rapide.
Visiblement l'utilisation de composant créé dynamiquement est encore un peu vague dans mon esprit