Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Cross-Platform-Entwicklung (https://www.delphipraxis.net/91-cross-platform-entwicklung/)
-   -   TScrollbox mit mehreren kleinen TMemo mittels touch (https://www.delphipraxis.net/195867-tscrollbox-mit-mehreren-kleinen-tmemo-mittels-touch.html)

Kostas 2. Apr 2018 20:39

TScrollbox mit mehreren kleinen TMemo mittels touch
 
Hallo zusammen,

zur Laufzeit erzeuge ich TMemo Objekte und füge sie in einer TScrollBox. Wenn die TMemos Enabled=false gesetzt werden, kann ich ohne Probleme scrollen genau so wie ich gerne hätte. Was mir debei nicht so gefällt ist, die TMemos sind dann Grau wie mna es kennt und die Schrift ist nicht mehr so gut lesbar wie wenn Enabled=true wäre.
Hat jemand eine Idee wie man scrollen könnte wenn die Memos Enabled=true wären? Die Memos sind ReadOnly und CanFocus ist deaktiviert. Brings alles nichts. Was hilft ist nur Enabled zu deaktivieren.

Gruß Kostas

himitsu 2. Apr 2018 21:14

AW: TScrollbox mit mehreren kleinen TMemo mittels touch
 
* Panel ohne Ramen drumrum und das auf Enabled
* oder das Memo ableiten und die Scroll-Messages abfangen und an die Scrollbar durchreichen
* oder eventuell kannst du im OnMouseDown der Edits mit MSDN-Library durchsuchenReleaseCapture und MSDN-Library durchsuchenSetCapture die Behandlung von Sender.Handle/GetFocus an ScrollBox.Handle übergeben (bei VCL)

Kostas 2. Apr 2018 22:04

AW: TScrollbox mit mehreren kleinen TMemo mittels touch
 
Hi himitsu,

perfekt wiedereinmal hattest du den besten Einfall. Einfach am Ende ein Panel über die ganzen Memos spannen und Opacity := 0;

Herzlichen Dank.
Gruß Kostas


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:48 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz