TUpdown ohne MouseWheel

[Schwedenbitter]

Hallo,

ich habe schon die Suchfunktion benutzt, aber nichts passendes finden können.

Auf meiner Form befindet sich eine TScrollBox. In dieser wiederum ein TImage. Mit dem Mausrad kann man nun den Zoom einstellen und das Bild größer oder kleiner anzeigen lassen. Das Bild selbst ist nur eine Vorschau.
Das Bild soll als jpeg komprimiert werden. Für TJPEGImage.CompressionQuality wollte ich ein TUpDown verwenden. Leider reagiert das auf das Scrollrad, so dass mein mühsam programmierter Zoom nicht mehr funktioniert.

Wie bringe ich TUpDown dazu, das Scrollrad zu ignorieren?

Ich habe dazu Code für (vermutlich) C gefunden. Es ist jedoch für mich zu kompliziert, dass nach Delphi umzusetzen. Dabei wird irgendwie die Komponente neu geschrieben, von TUpDown abgeleitet und WndProc so überschrieben, dass WM_MouseWheel an die übergeordnete Instanz weitergeleitet wird. Dadurch wird es dann im abgeleiteten TUpDown ignoriert - wenn ich das richtig verstehe. Sollte es keine einfachere Lösung geben, würde ich es mit 2 Buttons ('+' und '-') machen.

Gruß & Dank

[rollstuhlfahrer]

Wie wäre es denn, wenn du der Öffentlichkeit mitteilst, was dein C-Code denn ist, damit sich vielleicht ein anderer dran machen kann, den nach Delphi-Pascal zu portieren?

Bernhard

PS: Hat TUpDown ein Event ähnlich OnMouseWheel?

[Schwedenbitter]

Zitat von rollstuhlfahrer:

Wie wäre es denn, wenn du der Öffentlichkeit mitteilst, was dein C-Code denn ist, damit sich vielleicht ein anderer dran machen kann, den nach Delphi-Pascal zu portieren?

Entschuldigung. Wird nicht wieder vorkommen. Ich habe hier etwas gefunden. Mehr scheint es dazu nicht zu geben. Auch das hat nichts weiter gebracht.

[VERGESSEN]
Das Ableiten ist nicht das Problem. Ich habe aber wenig Lust, eine neue Komponente zu schreiben. Es kommt hinzu, dass ich TurboDelphi und damit das leidige Problem mit den Fremkomponenten habe. Da müsste ich dann wieder etwas zur Laufzeit erstellen.
[/VERGESSEN]

Zitat von rollstuhlfahrer:

Hat TUpDown ein Event ähnlich OnMouseWheel?

Leider nicht. Das wäre dann auch zu einfach gewesen: Über Handled das Event abwürgen und/oder ggf. als Message an die Scrollbox weiterleiten.
Gibt es aber leider nicht.

[himitsu]

TUpDown sollte nur auf das Scrollen reagieren, wenn es den Eingabefokus besitzt.

Ergo: Nimm dem TUpDown den Eingabefokus und schon reagiert es nicht mehr.

PS: In OnMouseLeave könntest du z.B. den Fokus woanders hinlegen.
{irgendein anderes sichtbares Control}.SetFocus; oder ActiveControl := nil; Wenn man per Tastatur das UpDown betreten hat, dann muß man da erstmal Manuell wieder da raus (oder man geht mal kurz mit der Maus drüber)

[Schwedenbitter]

Zitat von himitsu:

TUpDown sollte nur auf das Scrollen reagieren, wenn es den Eingabefokus besitzt.

Es reagiert auf das Scrollrad, wenn das associated control den Focus hat. Das ist richtig.
Das Problem bei mir ist aber, dass es nur eine TScrollBox, ein TImage, ein TEdit und TUpDown gibt. Es gibt also niemandem, dem ich den Focus geben könnte.

ActiveControl := nil; Funktioniert insoweit gut. Danke für den Tipp. Es klappt nur beim anzeigen des Fensters nicht sofort. Ich habe es bei TEdit.OnChange und bei TSubForm.OnShow eingefügt. Ich gehe davon aus, dass es bei OnShow ausgeführt wird. Allerdings wird die erste Bewegung des Scrollrades immer noch von TUpDown wahrgenommen.
Aber damit kann ich schon einmal leben!

Gruß

[himitsu]

http://www.delphipraxis.net/156104-i...ml#post1062675