mousemove mousedown triggern

[Der schöne Günther]

Hallo-

Ich habe nochmal etwas geschaut, es geht noch viel einfacher:

1. Auf dem Parent (im Regelfall das Formular) die Eigenschaft Touch.TabletOptions.toPressAndHold auf False setzen
2. Mittels Windows-API die Handballen-Erkennung für die gewünschte Komponente (den Button) abschalten

Delphi-Quellcode:

procedure TForm20.FormCreate(Sender: TObject);
const
   acceptPalms: Boolean = True;
var
   errorCode: Cardinal;
begin

   if acceptPalms and not RegisterTouchWindow(Button1.Handle, TWF_WANTPALM) then begin
      errorCode := GetLastError();
      ShowMessage(SysErrorMessage(errorCode) + '(' + errorCode.ToString() + ')');
   end;

end;

Dann können wir uns auch das manuelle "Triggern" des onMouseDown sparen. Es war einfach nur die blöde Handballen-Erkennung die dachte, wir würden hier nur versehentlich draufpatschen.

Siehe auch:

• http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
• http://connect.microsoft.com/VisualS...he-touch-moves