Discussion :

[f5jcg_Lulu]

Bonjour,
On connait le code pour exécuter l'évènement Click d'un bouton 1 par un bouton 2 :

Code :

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

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

Cela fonctionne très bien. Mais peut-on faire de même avec l'évènement MouseUp ? Genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
.................................
end;
 
procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Button1MouseUp(Self);
end;

J'ai essayé, ça ne fonctionne pas, j'ai le message "manque des paramètres".
Est-ce possible, et si oui, quels sont ces paramètres ?
Merci pour votre aide.
Cordialement

[SergioMaster]

Attends ces arguments

Code :

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

  Button1MouseUp(Sender,Button,Shift,X, Y);

[f5jcg_Lulu]

Merci Sergio, ça fonctionne.
Cordialement

[Paul TOTH]

attends, il suffit de choisir Button1MouseUp dans la liste proposée dans l'évènement OnClick OnMouseUp du button2...deux boutons peuvent partager le même code pour peu qu'il possède les bons paramètres.

[Andnotor]

quels sont ces paramètres ?

Tu les as sous les yeux

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
.................................
end;

[f5jcg_Lulu]

Evidemment que je les avais sous les yeux,encore fallait-il que je le sache . Je ne l'ai constaté qu'après la proposition de Sergio et c'est ce que j'attendais. Quand on ne sait pas on ne sait pas et les forums servent à apprendre me semble-t-il ! Ce qui paraît évident aux uns ne l'ai pas forcément pour les nuls
Salutations

[Andnotor]

Je ne te juge pas, hein ! on a tous débuté

Mais je vais te donner une autre indication : lorsque tu tapes le nom d'un procédure et dès que tu ajoute (, l'éditeur te montre les paramètres attendus. Et si ce n'est pas le cas (par exemple si tu as déplacé le curseur entretemps), la combinaison Ctrl+Shift+Espace les fait apparaitre.

Et juste une remarque sur le premier code bien connu : Button1Click(Self) n'est pas tout à fait juste. Même si rattachée au bouton, c'est une méthode de la fiche ; Self est la fiche. Pour être tout à fait correct, ce serait Button1Click(Button2) ou Button1Click(Sender) puisque Sender de Button2Click est Button2. Enfin si Sender n'est pas utilisé dans la méthode ou que tu veux vraiment simuler l'appui sur le Button1, on ferait simplement Button1.Click.

[f5jcg_Lulu]

Merci AndNotor pour votre réponse. Elle est riche de tout un tas de choses que j'ignorais. Je vois qu'on peut toujours faire plus simple. C'est génial et j'ai hâte d'essayer tout ça.
Pour le moment je vais déjeuner
Après essai, Button1.Click fonctionne tout aussi bien que Button1Click(Self) et c'est plus simple. Encore merci.
Cordialement