MouseEnter

[taktaky]

Hallo

der Funktioniert bei Panel wollte stattdessen Image verwenden, geht es leider nicht !

Delphi-Quellcode:

  private
  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;


procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
//if WindowFromPoint(ptWork) = Image1.handle then // error !!!
  if WindowFromPoint(ptWork) = Panel1.Handle then // ok
  begin
       Showmessage('hello');;
  end;
end;

Warum funktioniert bei Image1 nicht aber bei Panel1 ja ?