Discussion :

[yoghisan]

Pour lancer la procedure liée à l'événement d'un composant, je fais sans soucis.

Code :

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

TImage(Sender).OnClick(Sender)

Par contre , si l'évènement n'a pas de procedure liée, un message d'erreur apparait. Normal...

Là où ca coince c'est pour savoir si il y a une precedure lièe à l'événement.

Code :

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

if not (TImage(Sender).OnClick=nil) then TImage(Sender).OnClick(Sender)

Pour l'instant, je me debrouille en écrivant

Code :

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

1
2
3
4
try
  TImage(Sender).OnClick(Sender);
except
end;

Quelqu'un connait la bonne syntaxe de
if not (TImage(Sender).OnClick=nil) then

Merci,
David.

[sjrd]

Oui je connais :

Code :

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

1
2
if Assigned(TImage(Sender).OnClick) then
  TImage(Sender).OnClick(Sender);

[yoghisan]

Ouais nickel ! Merci.