AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen
Thema durchsuchen
Ansicht
Themen-Optionen

Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

Ein Thema von MyRealName · begonnen am 3. Sep 2021 · letzter Beitrag vom 7. Sep 2021
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von MyRealName
MyRealName

Registriert seit: 19. Okt 2003
Ort: Heilbronn
685 Beiträge
 
Delphi 10.4 Sydney
 
#1

AW: Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

  Alt 3. Sep 2021, 11:12
Der Name "inaktive Fenster beim Draufzeigen scrollen" ist aber irreführend in dem Fall, weil ich es
1.) abschalten muss, damit es geht
und
2.) das Fenster ja nicht inaktiv ist
Nein, das ist anders gemeint: Wenn die Option eingeschaltet ist, bekommt das Fenster die Scroll-Messages über dem die Maus gerade steht. Das inaktive Fenster wäre dann in deinem Fall der Button.
ahhhhh... muss man erstmal durchblicken Danke!
  Mit Zitat antworten Zitat
Benutzerbild von MyRealName
MyRealName

Registriert seit: 19. Okt 2003
Ort: Heilbronn
685 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

  Alt 3. Sep 2021, 14:17
Gibt es da sowas wie eine API Funktion, wo man das für seine eigene Anwendung an- oder abstellen kann ?
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.071 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

  Alt 3. Sep 2021, 16:08
Gibt es da sowas wie eine API Funktion, wo man das für seine eigene Anwendung an- oder abstellen kann ?
Workaround: Beim Programmstart bzw. dann beim Beenden in der Registry aus-/anschalten?
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.664 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

AW: Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

  Alt 3. Sep 2021, 17:44
Gibt es da sowas wie eine API Funktion, wo man das für seine eigene Anwendung an- oder abstellen kann ?
Workaround: Beim Programmstart bzw. dann beim Beenden in der Registry aus-/anschalten?
Bloß nicht! Solche globalen Einstellungen sollte ein Programm niemals ändern, sonst sucht man sich hinterher einen Wolf, wenn irgendein anderes Programm sich anders verhält als erwartet.

Das Problem sollte sich aber beheben lassen, in dem man im Formular die Wheel-Messages abfängt und an die Listbox weiterleitet. Man muss nur aufpassen, dass sie dann nicht doppelt verarbeitet werden, wenn die Listbox den Focus hat.
Thomas Mueller
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.664 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

AW: Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

  Alt 5. Sep 2021, 16:45
Das Problem sollte sich aber beheben lassen, in dem man im Formular die Wheel-Messages abfängt und an die Listbox weiterleitet. Man muss nur aufpassen, dass sie dann nicht doppelt verarbeitet werden, wenn die Listbox den Focus hat.
Manchmal habe ich das Gefühl, ich bin hier im Spam-Filter gelandet, weil gefühlt die meisten meiner Beiträge ignoriert werden.

Oder ist diese Lösung zu kompliziert?
Thomas Mueller
  Mit Zitat antworten Zitat
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
453 Beiträge
 
Delphi 12 Athens
 
#6

AW: Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

  Alt 5. Sep 2021, 17:54
Das Problem sollte sich aber beheben lassen, in dem man im Formular die Wheel-Messages abfängt und an die Listbox weiterleitet. Man muss nur aufpassen, dass sie dann nicht doppelt verarbeitet werden, wenn die Listbox den Focus hat.
Manchmal habe ich das Gefühl, ich bin hier im Spam-Filter gelandet, weil gefühlt die meisten meiner Beiträge ignoriert werden.

Oder ist diese Lösung zu kompliziert?
Vielleicht liegt’s ja an deinem Namen. Obwohl, ich finde den super 😂
  Mit Zitat antworten Zitat
tomkupitz

Registriert seit: 26. Jan 2011
351 Beiträge
 
Delphi 12 Athens
 
#7

AW: Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

  Alt 5. Sep 2021, 18:31
Etwas Quelltext:

Code:
procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  if Msg.message=WM_MOUSEWHEEL then
  begin
    SendMessage(ListBox1.Handle, WM_MOUSEWHEEL, Msg.wParam, Msg.lParam);
    Handled:=True;
  end;
end;
Du kannst ggf. mit PtInRect noch prüfen in welchem Breich das so laufen soll.

Beste Grüße
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.071 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

  Alt 6. Sep 2021, 09:56
Das Problem sollte sich aber beheben lassen, in dem man im Formular die Wheel-Messages abfängt und an die Listbox weiterleitet. Man muss nur aufpassen, dass sie dann nicht doppelt verarbeitet werden, wenn die Listbox den Focus hat.
Manchmal habe ich das Gefühl, ich bin hier im Spam-Filter gelandet, weil gefühlt die meisten meiner Beiträge ignoriert werden.

Oder ist diese Lösung zu kompliziert?
Das kenn ich auch gut!

Man postet die Lösung und trotzdem werden weiterhin Beiträge mit nicht passenden Lösungen oder sogar der fast gleichen Lösung geschrieben.

(Also jetzt mal unabhängig zu meiner Registry-Idee, die wirklich nur als dreckiger Workaround verstanden werden sollte)

EaxxUMDWkAAtlGr.png
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.552 Beiträge
 
Delphi 7 Professional
 
#9

AW: Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

  Alt 6. Sep 2021, 10:14
Sagen wir mal so:

Um den ersten korrekten Lösungsvorschlag als solchen zu erkennen, muss das Problem soweit verstanden sein, dass dieser Lösungsvorschlag als korrekt erkannt werden kann.

Ist dem nicht so, werden alternative Lösungsvorschläge gesucht. Dabei wird sich langsam aber sicher soweit in die Materie eingearbeitet, dass zu einem späteren Zeitpunkt dann ein identischer Vorschlag als korrekter Lösungvorschlag erkannt werden kann.

Pflapsig formuliert:

Ihr seid mit Euren korrekten Lösungsvorschlägen manchmal einfach nur zu schnell,
oder Ihr seid mit Euren Lösungsvorschlägen der Zeit weit voraus

Es ist halt ein allgemeines menschliches Problem:

Lieber lernt man aus eigener Erfahrung und eigenem "Aufdiefressefallen", als (blind) auf die Erfahrungen anderer zu vertrauen.
Nennt man auch: Lebenserfahrung sammeln.

Wie z. B. die heiße Herdplatte. Das sie heiß ist, erfährt man als Kind nicht, weil andere es sagen, sondern weil man sich die Finger verbrannt hat.

Ist einfach so, kein Grund zur Aufregung, kein Grund sich ignoriert zu fühlen, ist nur der normale tägliche Wahnsinn
  Mit Zitat antworten Zitat
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.106 Beiträge
 
Delphi 2009 Professional
 
#10

AW: Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

  Alt 3. Sep 2021, 18:03
Gibt es da sowas wie eine API Funktion, wo man das für seine eigene Anwendung an- oder abstellen kann ?
Workaround: Beim Programmstart bzw. dann beim Beenden in der Registry aus-/anschalten?
Dürfte auch nicht gehen, denn Windows wird sicher nicht bei jedem Scrollen in der Registry nachgucken, ob das jetzt an oder aus ist.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz