求用Dlephi做一个“抓不到的Button”程序出来！（自己突如其来的想法！） - 编程论坛

zin59702011-06-07 12:31

Button1.Left:=Button1.Left-10;
因为这样你只是设置了button1一直往左移

可以通过 button1.let和button1.top 两个来设置button1的坐标  你在这里可以随机赋值啊只要在窗体内即可

比如说你可以判断 button1.left - button1.width 是否大于0 ，如果小于0了你就改成button1.left + button1.width
同理如果 button1.left + button1.width  大于了你窗体的宽那就再改成 button1.left-button1.width

总之是通过控制button1.let和button1.top 的两个属性来设置button1的坐标位置

Begin20112011-06-12 20:13

我自己按照这个思路去试了一下，
发现还是不行
我的代码如下：
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组件是在主窗体之内随机移动
或者在四个角落移动也可以（随机移动！）
但是鼠标是点不到组件上面的
求大神们指点啊~~~~~~~~~~~~~！！！！！