Нужно сделать обработчик который бы определял расположен ли курсор в пределах формы. Нарыл такой код.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | private
procedure Image1WindowProc(var Msg: TMessage);
public
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. Помогите пожалуйста. Скажите как сделать
26.07.2013, 17:24
Пложения курсора в приделах объекта
Линейный вид
