Delphi-PRAXiS - Delphi TScrollingWinControl: Nicht dich, sondern dein Parent scrollen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TScrollingWinControl: Nicht dich, sondern dein Parent scrollen (https://www.delphipraxis.net/177834-tscrollingwincontrol-nicht-dich-sondern-dein-parent-scrollen.html)

TScrollingWinControl: Nicht dich, sondern dein Parent scrollen

Die gute VCL und Multitouch.

Man nehme eine

Delphi-Quellcode:

TScrollBox

"Parent" und packe Dinge (beispielsweise

Delphi-Quellcode:

TImages

) hinein. Zu scrollen funktioniert traumhaft. :thumb:

Nun packe man aber

Delphi-Quellcode:

TScrollingWinControl

-Unterklassen (Die

Delphi-Quellcode:

TScrollBox

selbst ist auch eine) hinein. Wenn man den Inhalt der TScrollbox "Parent" verschieben will und dabei auf einem enthaltenten TScrollingWinControl-Element startet, tut sich nichts. Die Dinger scheinen den Aufruf zu fressen.

Wie kann das verhindern? Ich kann die enthaltenen TScrollingWinControl-Elemente (darunter Forms, Frames, ...) auf Enabled=False setzen aber das kann es ja auch nicht sein...

Wer es direkt ausprobieren will (geht natürlich nur mit Touch) findet die zwei DFMs im Anhang :-)

AW: TScrollingWinControl: Nicht dich, sondern dein Parent scrollen

Endlich die Lösung gefunden. Es war so offensichtlich, dass man es erst gar nicht versucht: Einfach auf dem Frame (als Beispiel) das Flag Touch->InteractiveGestures->igPan ausschalten. Fertig. :thumb:

Und ich versuche mich hier durch Windows Messages zu wühlen und diese mittendrin zu modifizieren, anderen Komponenten zuzuwerfen... MANN