Discussion :

[looping]

Bonjour,

Soit le code exemple suivant:

Code :

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

1
2
3
4
5
 
procedure TForm1.Button1Click(Sender: TObject);
begin						
ShowMessage('Hello the Word');			
end;

Si je veux par exemple appeler l'événement "Button1Click" depuis le bouton 2 , quelle est la bonne syntaxe:

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Button2Click(Sender: TObject);
begin						
Button1Click(Sender)
ou 
Button1Click(Self) 
end;

Merci

[Andnotor]

Code :

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

1
2
3
4
5
6
procedure TForm1.Button2Click(Sender: TObject);
begin						
  Button1Click(Button1);
//ou 
  Button1.Click;
end;

Mais tu n'utilises pas Sender dans l'événement, ça n'a donc pas beaucoup d'importance ! Tu peux même passer nil si tu veux

[Papy214]

Le mieux est d'affecter le même événement aux deux boutons, si ça a un sens dans ton application. Ou encore utiliser un action pour le code et affecter l'action aux deux boutons.