Discussion :

[baryonyx]

Bonjour à tous,

Je vais essayer d’être le plus explicite possible,
j'ai un petit souci avec le curseur de l'écran tactile de Windows 7. J'ai un certain nombre de mes boutons qui ont des actions OnMouseDown et OnMouseUp.
Notre ancienne génération d'écrans tactiles émulaient la souris et il n'y avait aucun problème. Avec la nouvelle génération, la souris n'est plus émulée. Elle est remplacée par le
curseur "Pen and Touch" de Windows et seule les actions OnClick fonctionnent. Pour faire fonctionner OnMouseDown et OnMouseUp, je suis obligé d'appuyer sur mon bouton et de déplacer mon doigt de quelque
millimètre pour obtenir l'émulation d'un clic gauche maintenu.

J'ai essayé de reconfigurer les options "Pen and Touch" mais impossible d'avoir un clic gauche maintenu par un simple appui maintenu sur l'écran.
Il y a t'il une solution dans Windows ou dans Delphi pour forcer l'écran à émuler la souris?

Merci d'avance pour votre aide.

[Andnotor]

Un appui long correspond par défaut à un clique droit mais la fiche peut refuser ce comportement.

Sur un Delphi récent, propriété Touch -> TabletOptions -> toPressAndHold.

Sur un plus ancien :

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
17
procedure TForm1.DisablePressAndHold;
var
  Atom :TAtom;
 
const
  TabletAtom = 'MicrosoftTabletPenServiceProperty';
  TABLET_DISABLE_PRESSANDHOLD = $00000001;
 
begin
  Atom := GlobalAddAtom(tabletAtom);
 
  if Atom <> 0 then
  begin
    SetProp(Handle, tabletAtom, TABLET_DISABLE_PRESSANDHOLD);
    GlobalDeleteAtom(Atom);
  end;
end;

[baryonyx]

Merci pour ton aide!