TComboBox - MouseMove

[Amateurprofi]

Ich habe in der Main-Form eine TComboBox und möchte auf MouseMove-Events reagieren, wenn sich der Maus-Zeiger in der ComboBox oder in der aufgeklappten Liste befindet.

Meine bisherige Lösung:

1) In einer Unit, die in der Uses-Liste der Main-Form aufgeführt ist habe ich deklariert

Delphi-Quellcode:

   TComboBox = class(Vcl.StdCtrls.TComboBox)
   public
      property OnMouseMove;
   end;

2) Im FormCreate der Main-Form habe ich

Delphi-Quellcode:

procedure TMain.FormCreate(Sender: TObject);
begin
   …
   ComboBox.OnMouseMove := ComboBoxMouseMove;
   …
end;

und

Delphi-Quellcode:

procedure TMain.ComboBoxMouseMove(Sender:TObject; Shift:TShiftState; X,Y:Integer);
begin
   …
   …
end;

wo ich auf das MouseMove reagiere.

Das funktioniert gut, allerdings nur, wenn sich der Maus-Zeiger im Textfeld der ComboBox befindet.
Ist die Liste aufgeklappt und ich bewege die Maus im aufgeklappten Teil, wird kein MouseMove-Event ausgelöst (jeenfalls kommt es nicht im ComboBoxMouseMove an).

Frage:
Wie erreiche ich, dass ich auch auf Mausbewegungen im aufgeklappten Bereich der ComboBox reagieren kann.


Ein weiteres Problem:
Wen die Liste aufgeklappt wird, reicht diese bis an den unteren Rand der Form.
Ich möchte aber die Höhe begrenzen.

Ich habe es bereits mit DropDownCount versucht, aber das funktioniert nicht, auch dann nicht, wenn ich DropDownCount zur Laufzeit setze.
Ich vermute, dass das an Style = csOwnerDrawFixed liegt.

Frage:
Wie kann ich die Höhe der Liste begrenzen.

[ConnorMcLeod]

AFAIR ist die DropDownList ein eigenes Fenster. Das müsstest Du dann extra behandeln / overriden.

[KodeZwerg]

Dort -> TComboBox - how to adjust drop down list height while it is dropped down? gefunden.

Delphi-Quellcode:

procedure TCustomCombo.SetDropDownCount(const Value: Integer);
begin
  if Value <> FDropDownCount then
  begin
    FDropDownCount := Value;
    if HandleAllocated and CheckWin32Version(5, 1) and ThemeServices.ThemesEnabled then
      SendMessage(Handle, CB_SETMINVISIBLE, WPARAM(FDropDownCount), 0);
  end;
end;

Auf gleichem Server auch eine Antwort für Mouse Events, les mal ob Dir das reicht, über das Hint-Ereignis.How to make the note of ComBoBox in Delphi

[Amateurprofi]

Zitat:

Zitat von KodeZwerg (Beitrag 1410108)

Dort -> TComboBox - how to adjust drop down list height while it is dropped down? gefunden.

Delphi-Quellcode:

procedure TCustomCombo.SetDropDownCount(const Value: Integer);
begin
  if Value <> FDropDownCount then
  begin
    FDropDownCount := Value;
    if HandleAllocated and CheckWin32Version(5, 1) and ThemeServices.ThemesEnabled then
      SendMessage(Handle, CB_SETMINVISIBLE, WPARAM(FDropDownCount), 0);
  end;
end;

Auf gleichem Server auch eine Antwort für Mouse Events, les mal ob Dir das reicht, über das Hint-Ereignis.How to make the note of ComBoBox in Delphi

Danke, KodeZwerg.

SetDropDownCount wird ja aufgerufen, wenn ich zur Laufzeit den DropDownCount setze, aber wie in #1 erwähnt, bringt das nichts.
Ich hab dann mal spaßeshalber im Form.Create ein

Delphi-Quellcode:

SendMessage(ComboBox.Handle, CB_SetMinVisible, 10, 0);

eingefügt und siehe da, das funktioniert.
Ist wohl nicht so sehr sauber, aber "sieht ja niemand".

Und zum Thema MouseMove hab ich mir mal angeschaut was unter dem von dir gezeigten Link zu finden ist.
Im Moment verstehe ich das alles nicht - muss ich mich wohl durchbeißen...

[KodeZwerg]

Hallo Amateurprofi,

Zitat:

Zitat von Amateurprofi (Beitrag 1410185)

Ich hab dann mal spaßeshalber im Form.Create ein

Delphi-Quellcode:

SendMessage(ComboBox.Handle, CB_SetMinVisible, 10, 0);

eingefügt und siehe da, das funktioniert.

Ist ja nicht weiter schlimm, Du hast meinen Vorschlag halt nicht korrekt umgesetzt, als Methode der Klasse. Ja auf das SendMessage() läuft es hinaus, Hauptsache Du rufst es an geeigneter Stelle auf, Form.Create mag ich pers. nicht für so etwas, aber nach einer Listenfüllung um es dynamisch anzupassen.

Zitat:

Zitat von Amateurprofi (Beitrag 1410185)

Und zum Thema MouseMove hab ich mir mal angeschaut was unter dem von dir gezeigten Link zu finden ist.

Ja mit den Mouse Events würde ich halt über das Hint-Event gehen, darüber kannst Du Dir ausrechnen lassen wo die Maus gerade steckt, ich habe in Post #1 nicht so ganz verstanden worauf Du da genau aus bist, das Hint-Ereignis ermöglicht Dir halt ein Item aus der ComboBox nur anhand der Mausposition zu bestimmen.

[Amateurprofi]

Zitat:

Zitat von KodeZwerg (Beitrag 1410188)

Hallo Amateurprofi,

Zitat:

Zitat von Amateurprofi (Beitrag 1410185)

Ich hab dann mal spaßeshalber im Form.Create ein

Delphi-Quellcode:

SendMessage(ComboBox.Handle, CB_SetMinVisible, 10, 0);

eingefügt und siehe da, das funktioniert.

Ist ja nicht weiter schlimm, Du hast meinen Vorschlag halt nicht korrekt umgesetzt, als Methode der Klasse. Ja auf das SendMessage() läuft es hinaus, Hauptsache Du rufst es an geeigneter Stelle auf, Form.Create mag ich pers. nicht für so etwas, aber nach einer Listenfüllung um es dynamisch anzupassen.

Zitat:

Zitat von Amateurprofi (Beitrag 1410185)

Und zum Thema MouseMove hab ich mir mal angeschaut was unter dem von dir gezeigten Link zu finden ist.

Ja mit den Mouse Events würde ich halt über das Hint-Event gehen, darüber kannst Du Dir ausrechnen lassen wo die Maus gerade steckt, ich habe in Post #1 nicht so ganz verstanden worauf Du da genau aus bist, das Hint-Ereignis ermöglicht Dir halt ein Item aus der ComboBox nur anhand der Mausposition zu bestimmen.

Nee, deinen Vorschlag habe ich nicht umgesetzt, weil es mir nicht zielführend erschien.
Dir von dir gezeigte Methode "TCustomCombo.SetDropDownCount(const Value: Integer);" ist bereits Bestandteil von TCustomCombo und TComboBox ist ein Nachfahre von TCustomCombo.
Was also soll das bringen?
Ich hab mittlerweile auch geprüft, ob TCustomCombo.SetDropDownCount auch aufgerufen wird, wenn DropDownCount gesetzt wird.
Wird sie, aber das "SendMessage" wird nicht ausgeführt (wg. StyleServices).

Und was ich genau will?
In meinen Programmen ist es Standard, dass am unteren Rand der Form eine Statusbar ist und darüber ist ein freier Bereich, in dem ich zur Laufzeit Hinweise ausgebe. (Schau mal hier https://www.delphipraxis.net/134885-rechenprogramm.html).

Die Combobox, listet einige Musik-Titel auf und zeigt nicht nur die Titel sondern auch diverse Informationen zu dem jeweiligen Titel (siehe Anhang "Combobox aufgeklappt").
Ich möchte, wenn ich die Maus über die aufgeklappte Liste bewege, im oben erwähnten Hinweis-Feld ausgeben, wofür der Wert steht, auf den die Maus zeigt (siehe Anhang "Combobox zugeklappt").
Das ist aber vergebliche Mühe, wenn die Liste bis zum unteren Rand der Form reicht.
Deshalb will ich die Höhe der aufgeklappten Liste begrenzen, so dass das Hinweis-Feld frei bleibt.
Klar könnte ich den Hinweis auch direkt beim Cursor einblenden - ich will aber bei meinem Standard-Verfahren bleiben.

[Amateurprofi]

Zitat:

Zitat von KodeZwerg (Beitrag 1410188)

Ja mit den Mouse Events würde ich halt über das Hint-Event gehen, darüber kannst Du Dir ausrechnen lassen wo die Maus gerade steckt, ich habe in Post #1 nicht so ganz verstanden worauf Du da genau aus bist, das Hint-Ereignis ermöglicht Dir halt ein Item aus der ComboBox nur anhand der Mausposition zu bestimmen.

Hallo KodeZwerg,
ich habe mir angeschaut, was unter den Links, die Du netterweise zur Verfügung gestellt hast, zu lesen ist.
Wenn ich das richtig verstehe, dann funktioniert Dein Vorschlag über das Hint-Event zu gehen, in meinem Fall nicht (Style ist csOwnerDrawFixed, nicht csSimple).

Zitat:

If the TComboBox.Style property is not set to csSimple, the ListBox is only visible when it is dropped down.
The OnShowHint/CM_HINTSHOW trick will not work in this situation.
However, you can use the TComboBox.OnDropDown event to manually subclass the ListBox directly (and the OnCloseUp event to remove the subclass), using SetWindowLongPtr() or SetWindowSubclass().
That will allow you to intercept WM_MOUSEMOVE messages that are sent directly to the ListBox, and then you can send LB_ITEMFROMPOINT to the ListBox with the provided mouse coordinates.
However, to actually display a hint, it is not enough to just set the TComboBox.Hint property in this Situation (it won't be displayed, as the dropped-down list is basically acting as a modal window and is blocking the normal hint mechanism).
You will have to display your own hint window manually, such as by using the THintWindow class directly.

Was mir vielversprechend erscheint, ist der in obigem Text erwähnte Hinweis auf TComboBox.OnDropDown / SetWindowSubclass() / OnCloseUp / (RemoveWindowSubclass()).
Problem ist, dass ich nicht einmal ansatzweise verstehe, wie ich das realisieren kann.
Kannst Du mir kurz skizzieren wie ich das machen kann.
Was ich mir vorstelle ist:
Wenn die Liste aufgeklappt ist, und die Maus in der List bewegt wird, wird ein MouseMove ausgelöst und eine "eigene" MouseMove Methode ausgerufen, in der ich die die Position der Maus auswerten kann.
Vielen Dank.

[KodeZwerg]

Ich gebe Dir ein Beispiel okay, da ich Deinen Source nicht kenne ist es universal Einsetzbar.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    procedure ApplicationIdle(sender: TObject; var Done: boolean);
  end;

Delphi-Quellcode:

procedure TForm1.ApplicationIdle(sender: TObject; var Done: boolean);
var
  pt: TPoint;
  wnd: HWND;
  buf: array[0..128] of Char;
  i: Integer;
begin
  GetCursorPos(pt);
  wnd := WindowFromPoint(pt);
  If wnd <> 0 then
    begin
      buf[0] := #0;
      GetClassName(wnd, buf, SizeOf(buf));
      If StrIComp(buf, 'ComboLBox') = 0 Then
        Begin
          Windows.ScreenToClient(wnd, pt);
          i := SendMessage(wnd, LB_ITEMFROMPOINT, 0, lparam(PointToSmallpoint(pt)));
          If i >= 0 Then
            Begin
              SendMessage(wnd, LB_GETTEXT, i, integer(@buf));
              Label1.Caption := buf; // <<<< HIER ÄNDERE DEN EMPFÄNGER, MIR IST DEIN SOURCE UNBEKANNT
              Exit;
            End;
        End;
    end;
end;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.DropDownCount := 2;
  Application.OnIdle := ApplicationIdle;
end;

Dieser Code bewirkt das mir im Label1 ein Item aus einer aufgeklappten ComboBox wo Maus gerade drüber ist angezeigt wird.
Ob Du nun den Item Text darstellst oder per Pos() nach irgend was suchst um den Output anzupassen obliegt Deiner Phantasie.
Löst das Dein Problem oder habe ich es falsch verstanden?

Ps: Getestet mit D2009, da reicht es mit dem DropDownCount zu arbeiten.

[KodeZwerg]

Alternativ kannst Du natürlich auch Label1.Caption := buf; mit einer Funktion/Procedure ersetzen was Dir den Output vorbereitet und irgendwo hin sendet.

So umgehst Du zumindest die SubClass / CustomCombo etc Problematik.
Über der Zeile GetClassName(wnd, buf, SizeOf(buf)); könntest Du die Abfrage auch noch vertiefen/konkretisieren (wnd := WindowFromPoint(pt); mit einem bestimmten Control Handle einer ComboBox zum Beispiel), in dieser gezeigten Variante greift ApplicationIdle auf alle aufgeklappten ComboBox Listen Einträge zu und gibt Inhalt unter Maus weiter.

Ps: Da ich es über OnIdle Event laufen lasse, kann es passieren das wenn Deine Applikation gerade schwer am schuften ist Du kein Event gefeuert bekommst um das Item unter Maus auszuwerten.

[Amateurprofi]

Zitat:

Zitat von KodeZwerg (Beitrag 1410400)

Ich gebe Dir ein Beispiel okay, da ich Deinen Source nicht kenne ist es universal Einsetzbar.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    procedure ApplicationIdle(sender: TObject; var Done: boolean);
  end;

Delphi-Quellcode:

procedure TForm1.ApplicationIdle(sender: TObject; var Done: boolean);
var
  pt: TPoint;
  wnd: HWND;
  buf: array[0..128] of Char;
  i: Integer;
begin
  GetCursorPos(pt);
  wnd := WindowFromPoint(pt);
  If wnd <> 0 then
    begin
      buf[0] := #0;
      GetClassName(wnd, buf, SizeOf(buf));
      If StrIComp(buf, 'ComboLBox') = 0 Then
        Begin
          Windows.ScreenToClient(wnd, pt);
          i := SendMessage(wnd, LB_ITEMFROMPOINT, 0, lparam(PointToSmallpoint(pt)));
          If i >= 0 Then
            Begin
              SendMessage(wnd, LB_GETTEXT, i, integer(@buf));
              Label1.Caption := buf; // <<<< HIER ÄNDERE DEN EMPFÄNGER, MIR IST DEIN SOURCE UNBEKANNT
              Exit;
            End;
        End;
    end;
end;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.DropDownCount := 2;
  Application.OnIdle := ApplicationIdle;
end;

Dieser Code bewirkt das mir im Label1 ein Item aus einer aufgeklappten ComboBox wo Maus gerade drüber ist angezeigt wird.
Ob Du nun den Item Text darstellst oder per Pos() nach irgend was suchst um den Output anzupassen obliegt Deiner Phantasie.
Löst das Dein Problem oder habe ich es falsch verstanden?

Ps: Getestet mit D2009, da reicht es mit dem DropDownCount zu arbeiten.

Hallo KodeZwerg,
vielen Dank.
Nach ein paar Anlaufschwierigkeiten funktioniert das hervorragend.
Eine Beobachtung am Rande:
Wenn die Liste aufgeklappt wird und die Maus in das TextFeld der ComboBox gestellt wird, liefert GetClassName nicht 'ComboLBox'.
Ist auch logisch, denn die Maus ist ja nicht in der Liste.
Bewege ich aber nach dem Aufklappen die Maus in die Liste und dann in das TextFeld, dann liefert GetClassName 'ComboLBox', auch wenn die Maus nicht mehr in der Liste ist.
Hierbei ist es egal, ob ich die Maus in der Liste einfach nach oben bis in das Textfeld verschiebe oder z.B. nach rechts aus der Liste heraus, außerhalb der Liste nach oben und dann in das Textfeld.
Der mit

Delphi-Quellcode:

I:=SendMessage(Wnd,LB_ITEMFROMPOINT,0,LParam(PointToSmallpoint(MP)));

geholte Index ist dann (65536 + Index der gerade markierten Zeile).
Da das zu Problemen führte hab ich in ApplicationIdle zunächst abgefragt, ob Wnd=ComboBox.Handle ist (also die Maus ins TextFeld zeigt) und dann mit ComboBox.ItemIndex weitergemacht.
Überraschung hierbei: Combobox.ItemIndex ist dann der Index des in der Liste gerade markierten Eintrags, nicht des Eintags, der im Textfeld angezeigt wird.
Das hab ich gelöst, indem ich im ComboBoxDropDown den ItemIndex der Combobox in "fComboBoxIndex" speichere.

Bei mir sieht das jetzt so aus:

Delphi-Quellcode:

procedure TMain.cbMelodiesDropDown(Sender: TObject);
begin
   fComboBoxIndex:=cbMelodies.ItemIndex;
   Application.OnIdle:=ApplicationIdle;
end;

Delphi-Quellcode:

procedure TMain.cbMelodiesCloseUp(Sender: TObject);
begin
   Application.OnIdle:=Nil;
end;

Delphi-Quellcode:

PROCEDURE TMain.ApplicationIdle(Sender:TObject; var Done:Boolean);
const CN='ComboLBox';
var I:Integer; MP:TPoint; Wnd:HWND; Buf:array[0..Length(CN)] of Char;
begin
   GetCursorPos(MP);
   EraseHint;
   Wnd:=WindowFromPoint(MP);
   if Wnd<>0 then
      if Wnd=cbMelodies.Handle then begin
         WinApi.Windows.ScreenToClient(Wnd,MP);
         if ComboBoxIndex>0 then ShowComboBoxHint(ComboBoxIndex,MP.X);
      end else if GetClassName(Wnd,Buf,SizeOf(Buf)+1)=Length(CN) then begin
         if StrIComp(Buf,CN)=0 then begin
            WinApi.Windows.ScreenToClient(Wnd, MP);
            I:=SendMessage(Wnd,LB_ITEMFROMPOINT,0,LParam(PointToSmallpoint(MP)));
            if InRange(I,0,High(TSI)) then ShowComboBoxHint(I,MP.X);
         end;
      end;
end;

"TSI" ist ein Array das Zeiger auf die Daten der in der Combobox gezeigten Melodien enthält.
Hintergrund dieser Konstruktion ist, dass ich die in der Combobox-Liste gezeigten Einträge nach beliebigen Kriterien sortiert anzeigen kann.
Im ComBoxBox DrawItem greife ich auf TSI[] zurück, nicht auf Combobox.Items (das nur leere Strings enthält).

Delphi-Quellcode:

   // Daten einer Melodie
   TTrackDataRec=packed Record
      Index:Integer;             // Nummer des Tracks
      Name:String;               // Name des Tracks
      Time:Integer;              // Spieldauer des Tracks in ms
      SequenceCount:Integer;     // Anzahl Sequenzen im Track
      Count:Integer;             // Wie viel Töne Track gespielt werden
      ToneCount:Byte;            // Wie viel veschiedene Töne im Track vorkommen
      MinTone:Byte;              // Niedrigster Ton
      MaxTone:Byte;              // Höchster Ton
      AvgTone:Byte;              // Durchschnittlicher Ton
      MinIntensity:Byte;         // Niedrigste Intensity
      MaxIntensity:Byte;         // Höchste Intensity
      AvgIntensity:Byte;         // Durchschnittliche Intensity
      MinToneCount:Byte;         // Niedrigste Anzahl Töne in einer Sequenz
      MaxToneCount:Byte;         // Höchste Anzahl Töne in einer Sequenz
      AvgToneCount:Byte;         // Durchschnittliche Anzahl Töne in einer Sequenz
      MinSequenceTime:Integer;   // Spieldauer der kürzesten Sequenz
      MaxSequenceTime:Integer;   // Spieldauer der längsten Sequenz
      AvgSequenceTime:Integer;   // Durchschnittliche Spieldauer der Sequenzen
      ColorRange:TColorRange;    // Zugeordneter Farbbereich
   end;
   TPTrackDataRec=^TTrackDataRec;
   TTrackData=Array of TTrackDataRec;
   TTrackDataSortIndex=Array of TPTrackDataRec;