DBLookupCombobox Scrollen

[renekr]

Hi @,

Kann mir ev. jemand einen Trick verraten wie ich in einer DBLookupCombobox das Scrollen per Mausrad aktivieren kann?

danke.

[bwolf]

Jo,

das wüßte ich auch sehr gern - weiß mittlerweile jemand wie das geht ?

[marabu]

Hallo,

vielleicht hilft euch beiden dieser Thread weiter: dblookupcombo gibts was besseres

Freundliche Grüße

[Union]

Du könntest WM_MOUSEWHEEL Nachrichten abfangen und diese dann auf WM_KEYDOWN mit VK_UP / VK_DOWN patchen. Dann brauchst Du keine eigene Komponente.

[ereetzer]

Hallo,
das Thema ist ja schon etwas älter, aber da ich gerade auch das Problem hatte in der DBLookupComboBox mit der Maus zu scrollen
und dazu hier keine Lösung außer eine eigene Komponente extra dafür gefunden hatte, hier mal die Lösung dazu: (also die Umsetzung von Union´s Vorschlag)


Als erstes Mal im OnCreate Ereignis des Hauptformulares wie folgt deklarieren:

  Application.OnMessage := self.HandleMousewheel; Dann eine Prozedur einfügen:

Delphi-Quellcode:

procedure TForm1.HandleMousewheel(var Msg: TMsg; var Handled: Boolean);
begin
   case Msg.message of 
      WM_MOUSEWHEEL: 
      begin 
         if (Screen.ActiveForm.ActiveControl <> nil) and 
            (Screen.ActiveForm.ActiveControl.ClassName = 'TDBLookupComboBox') then
         begin 
            Msg.message := WM_KEYDOWN; 
            Msg.lParam := 0; 
            if Msg.wParam > 0 then 
               Msg.wParam := VK_UP 
            else 
               Msg.wParam := VK_DOWN; 
            Handled := False; 
         end;
      end; 
   end; 
end;

Dann sollte das klappen.

[d6lpz]

Hallo,

Zitat von ereetzer:

Hallo,
das Thema ist ja schon etwas älter, aber da ich gerade auch das Problem hatte in der DBLookupComboBox mit der Maus zu scrollen
und dazu hier keine Lösung außer eine eigene Komponente extra dafür gefunden hatte, hier mal die Lösung dazu: (also die Umsetzung von Union´s Vorschlag)


Als erstes Mal im OnCreate Ereignis des Hauptformulares wie folgt deklarieren:

  Application.OnMessage := self.HandleMousewheel; Dann eine Prozedur einfügen:

Delphi-Quellcode:

procedure TForm1.HandleMousewheel(var Msg: TMsg; var Handled: Boolean);
begin
   case Msg.message of 
      WM_MOUSEWHEEL: 
      begin 
         if (Screen.ActiveForm.ActiveControl <> nil) and 
            (Screen.ActiveForm.ActiveControl.ClassName = 'TDBLookupComboBox') then
         begin 
            Msg.message := WM_KEYDOWN; 
            Msg.lParam := 0; 
            if Msg.wParam > 0 then 
               Msg.wParam := VK_UP 
            else 
               Msg.wParam := VK_DOWN; 
            Handled := False; 
         end;
      end; 
   end; 
end;

Dann sollte das klappen.

Danke für Deine Lösung, muß ich gleich mal probieren.

Ich habe noch eine andere Frage bezüglich einer DBLookupListbox.
Vielleicht hast Du ja dafür auch eine Erklärung für mich.
Wieso wird das Clickereignis auf einen DBLookupListbox mehrfach ausgelöst?
Kennst Du dieses Verhalten?
Dirk

[ereetzer]

Zitat:

Danke für Deine Lösung, muß ich gleich mal probieren.

Ich habe noch eine andere Frage bezüglich einer DBLookupListbox.
Vielleicht hast Du ja dafür auch eine Erklärung für mich.
Wieso wird das Clickereignis auf einen DBLookupListbox mehrfach ausgelöst?
Kennst Du dieses Verhalten?
Dirk

Hallo,

habs grad mal probiert bei mir. Kann das Problem aber nicht nachvollziehen. Funktioniert bei mir so, wie es soll.