Нужно сделать обработчик который бы определял расположен ли курсор в пределах формы. Нарыл такой код.
Код:
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. Помогите пожалуйста. Скажите как сделать