[antonbergov]

Есть пример взял на этом форуме, только он работает над контролами которые лежает на форме, если например на панели лежит 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;

Админ: пользуемся тегами для оформления кода!