appeller l'evenement d'un autre composant

Question

bonsoir à tous

j'ai un petit soucis 
je veux implémenter dans un TmenuItem le méme code que celui d'un tButton qui se situe dans une autre form, comment puis je appeler la procédure Button1Clic(sender : tObject) dans l'évènement de tMenuItem au lieu de réécrire le code de la procédure button1.clic

merci de votre aide

dubois77 · Answer

Le plus simple : tu fais une procédure unique qui gère le problème
et tu l'appelle dans les 2 autres (tmenuitem et tbutton)



Dubois77

cs_MohInfo · Answer

merci pour votre réponse mais je veus implémenter ce que j'ai posé comme probléme exactement.

Bacterius · Answer

Ou alors, dans l'inspecteur d'objets, au lieu de doublecliquer comme d'habitude pour créer un nouvel évènement, tu déroules la liste déroulante. Si les paramètres sont identiques, tu pourras choisir le même événement. Sinon, il faut utiliser la méthode de Dubois.

Cordialement, Bacterius !

beckerich · Answer

bonjour,

ou encore mieux, utiliser une TActionList et des TAction, puis assigner le TAction aux propriétés Action des composants désirés.

Luc.

Cirec · Answer

Salut,

tout simplement comme ça:

NomForm.Button1.Click


[hr]@+Cirec
[hr]

Bacterius · Answer

Ou NomForm.Button1.OnClick(self) 
Il y a plein de solutions ! (toutes équivalentes à un certain niveau mais bon)

Cordialement, Bacterius !

Cirec · Answer

Attention 

"Button1.Click" est une procedure qui sécurise l'appel a l'évènement OnClick 
Si l'évènement OnClick n'est pas assigné il n'y aura pas d'erreur. 

Par contre avec "Button1.OnClick(self)" 
si l'évènement OnClick n'est pas assigné tu auras une belle violation d'accès ! 

conclusion ... autant l'appeler correctement 

[hr]@+Cirec
[hr]

Bacterius · Answer

if Assigned(Button1.OnClick) ça marche ?

Cordialement, Bacterius !

Cirec · Answer

oui bien sur .. mais la procedure "Click" est faite pour ça 
la procedure est implémentée et liée dans le code que tu l'utilises où non !!
Donc, autant s'en servir, le reste n'est que code supplémentaire  


[hr]@+Cirec
[hr]

Bacterius · Answer

Click existe dans toutes les versions de Delphi ? Il me semble ne l'avoir jamais rencontrée dans mon vieux Delphi 3 (que d'ailleurs il faudrait que je numérise proprement un jour, le disque se fait vieux).

Note que personnellement je préfère être au plus bas niveau, et ne pas me baser sur des choses dont je ne connais pas le contenu, pour éviter les mauvaises surprises et les sessions de débuggages pénibles. Mais dans un sens, il faut savoir se fier au matos desfois 

Cordialement, Bacterius !

Appeller l'evenement d'un autre composant

10 réponses

Votre réponse

Discussions similaires