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.
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
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;
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
Partager