Eigene Komponente um Touch-Bedienung erweitern

[hotrs02]

Hi *.*,

gegeben ist eine einfache Komponente in Delphi 11.1, abgeleitet von TCustomControl, die in einem Raster Kacheln anzeigt und dabei verschiedene Seiten verwaltet. Mittels Tastatur und Mausrad kann die aktuelle Seite bereits gewechselt werden. Bislang kommt die Komponente ohne Laufbalken aus.

Die Komponente soll jetzt so erweitert werden, dass der Anwender mittels hor. oder vert. Wischen die Seite wechseln kann.

Ich könnte jetzt neben der Komponente eine TGestureManager Komponente auf das Formular packen und wie gewünscht konfigurieren. Allerdings müsste ich das bei jeder Verwendung der Komponente erneut machen, was ich gerne verhindern würde. Kann ich in einer Komponente ohne große Konfiguration relativ einfach auf eine Auswahl von Gesten reagieren?

Alternativ sollte Windows doch Touch-Bewegungen in Botschaften umsetzen, so dass sich Anwendungen ohne Touch-Anpassung auch per Touch bedinden lassen. Muss ich dieses Verhalten für die Komponente aktivieren und welche Botschaften werden für hor. bzw. vert. Wischbewegungen ausgelöst?

Gruß

[hotrs02]

Hi *.*,

ich habe es jetzt soweit hinbekommen, dass ich mittels CreateParams einen Laufbalken ergänze, was letztendlich dazu führt, dass beim Wischen WM_xSCROLL Botschaften an meine Komponente gesendet werden. Diese kann ich dann vernünftig auswerten, um ein Blättern per Wischgeste hinzubekommen.

Das Problem dabei ist allerdings, dass ich den Laufbalken gerne verstecken würde. Sobald ich aber ShowScrollBar(..., False) aufrufe, löst das Wischen keine Botschaften mehr aus.

Hat ggf. jemand eine Idee dazu?

Gruß