Интерфейс.Хаотично перемещающийся Button

[Pang]

Как сделать чтобы кнопка после запуска формы начала хаотично двигаться по форме?? Подробнее пожайлуста..

[mihali4]

По таймеру меняйте кнопке параметры Left и Top, вычисляя их при помощи Random.
Подробнее уж некуда...

[Terran]

Сообщение от Pang

Как сделать чтобы кнопка после запуска формы начала хаотично двигаться по форме?? Подробнее пожайлуста..

В виде кода, это будет выглядеть так:

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Button1.Top:=Random(Form1.Height);
Button1.Left:=Random(Form1.Width);
End;

[CyberOrcX]

по таймеру:
Вам же надо чтобы кнопка, не убегала за пределы формы?
если так, то попробуйте это:

 
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
    Button1.Left:=Random(Main.ClientWidth-Button1.Left);
    Button1.Top:=Random(Main.ClientHeight-Button1.Top);
  end;

[mihali4]

Вам же надо чтобы кнопка, не убегала за пределы формы?

Пример, предложенный Терраном, вполне с этим справляется.
Не уверены? Освежите в памяти формат команды Random...
В вашем же примере координаты кнопки с каждым шагом будут стремиться к левому верхнему углу формы...

[Sibedir]

CyberOrcX наверное имел в виду, что правый и нижний края кнопок не должны по идее выходить за пределы клиентской части формы, но ошибся с кодом:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Button1.Left:=Random(ClientWidth-Button1.Width);
  Button1.Top:=Random(ClientHeight-Button1.Height);
end;

Но я думаю, что под определение "хаотично двигаться по форме" больше подходит следующий код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  x, y: Integer;
begin
  x := 50 - Random (101);
  y := 50 - Random (101);
  if ((Button1.Left + x) < 0) or ((Button1.Left + x + Button1.Width ) > ClientWidth ) then x := -x;
  if ((Button1.Top  + y) < 0) or ((Button1.Top  + y + Button1.Height) > ClientHeight) then y := -y;
  Button1.Left := Button1.Left + x;
  Button1.Top  := Button1.Top  + y;
end;