ComboBox OnMouseEnter/OnMouseLeave funktioniert nicht

[BlueStarHH]

Hallo,

ich habe eine TComboBox und dort soll jeweils eine Aktion beim OnMouseEnter und OnMouseLeave ausgelößt werden. Leider funktionieren die beiden Events nicht so, wie gewünscht: Bewegt man die Maus (langsam) in die ComboBox wird OnMouseEnter ausgelößt, wenn man den Rahmen oder den Pfeilbereicht der Combobox trift. Berührt man das in der ComboBox eingebettete Edit-Feld wird schon OnMouseLeave ausgelößt, obwohl man ja eigentlich noch in der Combobox ist. So mach die Implementation doch keinen Sinn. Wie kann man das fixen? Komme ich iregendwie an das eingebettete Edit-Feld ran und kann dort OnMouseEnter/OnMouseLeave abfragen? Danke!

[BlueStarHH]

Hat niemand eine Idee? *push*

[mkinzler]

Der Fokus wechselt ja. Frage im Event einfach die Koordinaten ab

[DeddyH]

Nur ein Ansatz:

Delphi-Quellcode:

type
  TComboBox = class(StdCtrls.TComboBox)
  private
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  end;

  TForm2 = class(TForm)
...

implementation

{$R *.dfm}

procedure TComboBox.CMMouseLeave(var Msg: TMessage);
begin
  if WindowFromPoint(Mouse.CursorPos) <> EditHandle then
    inherited;
end;

Zieht man die Maus so allerdings recht schnell aus dem Edit der Combobox heraus, wird das Ereignis nicht ausgelöst. Aber vielleicht kannst Du mit dem EditHandle ja noch etwas anderes anfangen.

[BlueStarHH]

Zitat von DeddyH:

Nur ein Ansatz:

Delphi-Quellcode:

type
  TComboBox = class(StdCtrls.TComboBox)
  private
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  end;

  TForm2 = class(TForm)
...

implementation

{$R *.dfm}

procedure TComboBox.CMMouseLeave(var Msg: TMessage);
begin
  if WindowFromPoint(Mouse.CursorPos) <> EditHandle then
    inherited;
end;

Zieht man die Maus so allerdings recht schnell aus dem Edit der Combobox heraus, wird das Ereignis nicht ausgelöst. Aber vielleicht kannst Du mit dem EditHandle ja noch etwas anderes anfangen.

Beim Schnellen herausziehen der Maus aus dem Edit wird das OnMouseLeave nicht ausgelößt, da dort WindowFromPoint(Mouse.CursorPos) gleich dem EditHandle ist. Außerdem wird der Rahmen der Combobox dann nicht mehr getroffen (der Mauszeiger springt rüber) und daher lößt auch der Rahmen kein OnMouseLeave aus. Um das zu fixen, müsse also das eingebettete Edit selbst ein OnMouseLeave auslösen. Das EditHandle habe ich ja schonmal. Nur wie reagiere ich damit auf WM_MOUSELEAVE oder lasse das Edit ein OnMouseLeave auslösen?

[BlueStarHH]

Zitat von mkinzler:

Der Fokus wechselt ja. Frage im Event einfach die Koordinaten ab

Welcher Fokus wechselt? Ich klicke nicht mit der Maus auf die Combobox, sondern berühere sie nur mit der Maus. Die Combobox muss keinen Fokus haben und hat in meinen Anwendungsfällen meistens auch keinen. Kannst Du noch etwas genauer erläutern was Du mit "frag die Koordinaten ab" meinst? Die Lösung in #4 mit WindowFromPoint()?