Discussion :

[Guigui_]

j'aimerais gérer le clic gauche-droit de la souris

avec les aides, je n'ai trouvé que la propriété gauche ou droite

gauche: mbleft
droite: mbright
il manque gauche-droit

en passant, en VB, lorsqu'on teste ou affecte à une variable d'un type Enum, il propose une liste des différentes valeurs possibles. Je ne crois pas que cela soit le cas en delphi. C'est pourtant bien pratique

donc est-il possible de récupérer (dans l'aide ou autrement) les différentes valeurs possibles d'une variable de type Enum ?

[Nono40]

En fait tu veux utiliser un évènement si l'on clique sur les deux boutons EN MEME TEMPS ? Sinon, précise un peu plus ce que tu veux faire...

[Guigui_]

j'utilise l'évènement onmousedown d'un paintbox

Code :

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

1
2
procedure TForm2.PaintMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

donc je peux récupérer le type de pression de la souris
avec
if Button=mbleft then ...
if Button=mbright then ...
...

il me manque la valeur possible dans
if Button='les deux boutons en même temps' then

J'espère que je suis plus clair
de plus, la question suivante reste valable
Est-il possible de récupérer (dans l'aide ou autrement) les différentes valeurs possibles d'une variable de type Enum ?

[Nono40]

OK

Dans cet évènement tu as deux informations : Button de type énuméré qui te donne le bouton appuyé, et Shift de type ensemble qui te donne l'état actuel des touches de control ( Shift,Alt ... ) et des boutons ( Droit, Gauche...).

Donc dans cet évènement il est facile de réaliser un évènement 'les deux en même temps' :

Code :

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

1
2
3
4
5
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If (ssLeft In Shift )And(ssRight In Shift) Then ShowMessage('Les deux !');
end;

Le détail de button et shift sont dans l'aide.

[Guigui_]

ça marche.
merci