“抓不到的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组件是在主窗体之内随机移动
或者在四个角落移动也可以（随机移动！）
但是鼠标是点不到组件上面的
求大神们指点啊~~~~~~~~~~~~~！！！！！

谢谢大神的指导
非常的感谢！！！
本人实在是太菜了
所以非常感谢这位大哥给我的帮助
对我非常有用！！
谢谢
谢谢！

谢谢
谢谢你啦
虽然说没有答案
但是你的思路还是对我有帮助的
楼下有个人给出了答案
你也去看看吧
谢谢你的好心