En fait il faut juste affecter a ton evenement la procedure adequate,
sans inclure les parametres eventuels.
Si c'est un click : tu fais "Compos.OnCLick := CompoClick;"
tu t'occupes pas du Sender, en declaration de la procedure "CompoClick(Sender:TObject)"
Expl
Code :
- TLaFiche = class(TForm)
- ...
- Procedure CompoClick(Sender:TObject);
- Procedure Creation_Dynamiq;
- End;
- ...
- Implementation
- ...
- Procedure TLaFiche.CompoClick(Sender:TObject);
- Begin
- //Code si click
- ...
- End;
- Procedure TLaFiche.Creation_Dynamiq;
- Var Compos:TComposant;
- Begin
- Compos:=TComposant.Create;
- Compos.OnCLick := CompoClick;
- End;
|
J'espere ne pas avoir ete trop brouillon
---------------
L'éternité c'est long, surtout vers la fin.