Problem mit Increment von Scrollbar / Scrollbox

[bogdan]

Ich habe eine Main.Form1 und Panel1. Das Panel1 ist ein Parent für Form2. Auf der Form2 liegt eine Scrollbox. Die Scrollbox.VertScrollbar wird mit MausOnWheel angesteuert.

Das Problem ist: beim öffnen von mehreren Form2 (X > 1) scrollt/springt die VertScrollbar in allen geöffneten Form2 viel schneller als wenn nur eine Form2 geöffnet wäre. Dieses schnellere scrollen/springen erhöht sich mit jedem weiteren öffnen einer neuen Form2. Auch wenn der Incremnt Wert von zb. 8 immer fest in der MausOnWheel Function zugewiesen wird, das "Falsche" Scrollen ist immer da.

Kennt vielleicht Jemand das Problem und wie man das beheben kann?

[stahli]

Man müsste wohl mal sehen, wie Du das genau implementierst.
Ich vermute, dass Du irgenwie auf eine global erreichbare Variable zugreifst, z.B. auf "Form2" Deiner Formularunit.
Vielleicht kommst Du schon in der Richtung weiter:

Delphi-Quellcode:

MyForm := (MyScrollBox.Owner as TForm);

Warum arbeitest Du überhaupt mit Formularen?

[bogdan]

Die Idee ist in einem Parent "begrenzte" Anzahl an Windows Fenstern mit diversen Masken zu öffnen und dort dementsprechend zu agieren.
Mit Formularen habe ich die Möglichkeit statische oder dynamische Masken zu erstellen/oder später auch zu ändern. Zudem wollte ich die Windows-Styles, etc. beibehalten, ohne dass ich das alles neu aufsetzen muss und nur bei Bedarf eingreifen kann.

Aber vielleicht hast du eine bessere Idee, bin für alles offen :)

[stahli]

Kannst Du mal Deine Exe, Formularunit und/oder Screenshots zeigen?

Mit eingebetten Formularen kann man schon arbeiten, manchmal ist das schon ganz nützlich.
Dein genaues Problem habe ich noch nicht richtig nachvollziehen können.

[bogdan]

Habe den Fehler mit deinem Ansatz gefunden: der Increment-Wert wurde multipliziert. Konnte es jetzt beheben.

vielen Dank für deine Zeit