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