“抓不到的Button”后续问题，求大神指点~
“抓不到的Button”一帖https://bbs.bccn.net/thread-342076-1-1.html我自己按照这个思路去试了一下，
发现还是不行
我的代码如下：
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Button1.Left:=Button1.Left-10;
Button1.Top := BUtton1.Top-5;
if (button1.left - button1.width<0) or
(Button1.Top-button1.Height<0) then
repeat Button1.Left:=Button1.Left+10
until button1.Left+button1.width>form1.Width;
end;
结果到最后那个Button还是消失在了窗体之中
希望各位大神给出详细代码
本人乃是一菜鸟
诚心希望大神们的指点.
再次给出以下要求：
我希望做出来的是Button组件是在主窗体之内随机移动
或者在四个角落移动也可以（随机移动！）
但是鼠标是点不到组件上面的
求大神们指点啊~~~~~~~~~~~~~！！！！！
