ComboBox OnMouseEnter/OnMouseLeave funktioniert nicht

[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?