一个控件（比如button、pannel)怎么知道光标移进、移出自己的范围？

Question

OnEnter事件好像没用

Answer 1

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (X>= 0) and (X<= Button1.Width) and (Y>= 0) and (Y<= Button1.Height) then
    showmessage('inside')
end

Answer 2

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
button1.Caption:='up';
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
button1.Caption:='out';
end;

Answer 3

你可以借助它们的onexit事件来判断呀！失去了焦点就会触发此事件！

Answer 4

但是如果鼠标又移出这个区域，如何改变原来的显示如inside ->outside呢？