[AlexandrV]

Нужно сделать обработчик который бы определял расположен ли курсор в пределах формы. Нарыл такой код.

Код:

private
    { Private declarations }
    procedure Image1WindowProc(var Msg: TMessage);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  OldImage1WindowProc: TWndMethod;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
OldImage1WindowProc:=Image1.WindowProc;
Image1.WindowProc:=Image1WindowProc;
Image1.Perform(CM_MOUSELEAVE,0,0);
end;

procedure TForm1.Image1WindowProc(var Msg: TMessage);
begin
case msg.Msg of
CM_MOUSELEAVE:
begin
Label1.Caption:='Не над картинкой';
end;
CM_MOUSEENTER:
begin
Label1.Caption:='Над картинкой';
end;
end;
OldImage1WindowProc(Msg);
end;

но не могу чтото в State у панелиs найти свойство WindowProc. Помогите пожалуйста. Скажите как сделать