Discussion :

[The Jos]

Bonjour à tous,

J'utilise un TBI pour une formation. Le pb c que le stylet qui me permet de cliquer sur le tableau est juste l'équivalent du clic gauche de la souris. Il n'y a pas de clic droit sur mon stylet. J'envisage donc de faire une barre d'outils toujours en premier plan pour interchanger les clics. Un coup mon stylet serait du clic gauche un coup du clic droit un coup du clic millieu. Pas besoin de toucher au drivers du stylet comme il se calque sur la souris si je réussis a interchanger les clic de la souris c gagné.

Merci à tous

[Archimède]

mouse_event ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if ssleft in shift then MouseEvent(Form1,MOUSEEVENTF_RIGHTDOWN);
 if ssright in shift then caption:='gagner';
end;
 
Function TForm1.MouseEvent(AOwner : TControl; Event : DWord) : LongInt;
Var
dwExtraInfo : DWord;
Begin
 Mouse_Event(Event,AOwner.Left,AOwner.Top,0,dwExtraInfo);
End;
 
UN TRUC DE CE GENRE...