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.