Hallo-
Ich habe nochmal etwas geschaut, es geht noch viel einfacher:
- Auf dem Parent (im Regelfall das Formular) die Eigenschaft Touch.TabletOptions.toPressAndHold
auf False
setzen
- 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: