Как определить курсор над контролом

[antonkovaliou]

Есть пример взял на этом форуме, только он работает над контролами которые лежает на форме, если например на панели лежит Image. ТО не работает.

procedure WndProc(var Message: TMessage); override;

procedure TForm1.WndProc(var Message: TMessage);
begin

inherited;

case Message.Msg of
CM_MOUSEENTER:
begin
if TControl(Message.LParam) is TPanel then

Label1.Caption := 'ComboBox';
end;
CM_MOUSELEAVE:
begin
if TControl(Message.LParam) is TPanel then

Label1.Caption := 'Not ComboBox';
end;
end;
end;

[Пепел Феникса]

я думаю дело в том что TImage это не оконный компонент.

[antonkovaliou]

Не работает, не только с TImage со всеми компонетами, которые лежат поверх других.!

[phomm]

Попробуйте нечто такое в обработчиках типа MouseMove:

var
  actrl: tcontrol;
...
  actrl := ControlAtPos(ClientToScreen(MousePos), True, True);
  if actrl <> nil then