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?