Ecrire un gestionnaire d'événement sans l'inspecteur d'objet

**Lolo1988** · 06/08/2009, 10h34

Bonjour,

Comment écrire un gestionnaire d'événement d'un objet/composant pas encore créé, et dont l'inspecteur d'objet n'est pas disponible?

Lorsqu'un composant est importé sur une fiche, on accède à son gestionnaire d'événement via l'inspecteur d'objet. Mais lorsque ce composant n'existe pas encore au moment de la conception, comment peut-on lui écrire ce gestionnaire d'événement?

Merci d'avance pour vos éventuelles réponses,

Laurent

**ShaiLeTroll** · 06/08/2009, 11h41

Voir Ici

**Lolo1988** · 06/08/2009, 23h37

Envoyé par ShaiLeTroll

Voir Ici

Merci pour cette réponse.
En fait, c'est justement l'affectation dynamique d'une procedure à l'événement qui ne marche pas chez moi :

MyControl.OnClick := Form1.MyProcedure ;
me génère une erreur (types incompatibles TMyControl et TObject).

idem avec l'exemple que tu m'as donné.

Toutefois, dans mon projet, j'ai contourné le problème, mais ça m'intéresse d'en savoir plus pour la prochaine fois que ça se présente...

Cordialement,

Laurent

**ShaiLeTroll** · 07/08/2009, 11h22

déjà ton erreur ne semble même pas cohérente, tu devrait avoir "types incompatibles TNotifyEvent et TObject" par exemple ...

Impossible de t'aider sans code (pas besoin de tout, juste l'essentiel) ...

**Lolo1988** · 10/08/2009, 10h07

Envoyé par ShaiLeTroll

déjà ton erreur ne semble même pas cohérente, tu devrait avoir "types incompatibles TNotifyEvent et TObject" par exemple ...

Impossible de t'aider sans code (pas besoin de tout, juste l'essentiel) ...

Du coup j'ai tout remanié pour contourner le problème... J'ai effectivement dû me tromper entre les types incompatibles, je ne me souviens plus.

Mais j'arrive au même problème avec simplement un TButton sur une fiche, et en essayant d'affecter une procedure à l'événement OnClick du TButton sans passer par l'inspecteur d'objet :

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
23
24
25
26
27
28
29
30
31
32
33
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject) ;
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure showclicked ;
  end ;
 
var
  Form1: TForm1 ;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.showclicked ;
begin
  showmessage('clicked') ;
end ;
 
procedure TForm1.FormCreate(Sender: TObject) ;
begin
  Button1.OnClick := Form1.showclicked ;
end ;
 
end.

La ligne Button1.OnClick := Form1.showclicked ; génère une erreur. Ca ressemblait pourtant à ça ?

Là, je pouvais passer par l'inspecteur d'objet, évidemment, mais si le TButton n'existe pas encore durant la conception, comment fait-on pour affecter une procedure à son événement OnClick sans passer par l'inspecteur d'objet?

Cordialement,

Laurent

**Cl@udius** · 10/08/2009, 10h25

Salut

Code :

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

1
2
3
4
public
    { Déclarations publiques }
    procedure showclicked(Sender: TObject);
  end ;

ShowClicked doit être une procédure de type TNotifyEvent.

Dans le Create de la form, ne fais pas référence à Form1 mais plutôt à self.

Code :

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

1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject) ;
begin
  Button1.OnClick := Self.showclicked ;
// ou plus simplement
  Button1.OnClick := showclicked ;
end ;