Нарисовать квадратную мишень

[lepump]

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

Непонятно, что конкретно надо.
Как должна двигаться форма ? Случайно ?
Если случайно, то должно ли учитываться предыдущее направление движения ?
Если не случайно, то по какому принципу?

Пример приведите для нескольких кликов.

Нажимаю на кнопку которая находиться на форме и форма отступает на 10 в право, нажимаю на кнопку снова, и форма отступает на 15 влево. Последовательность отступов случайная. Только вправо и влево, вверх и вниз она не ходит.

[type_Oleg]

Все равно, не все понятно.
Ну ладно, 2 варианта.
1) Случайные независимые прыжки на случайное расстояние. То есть может быть два, три раза подряд вправо

procedure TForm1.Button1Click(Sender: TObject);
const MAX_STEP=20; // максимальная длина прыжка
begin
  Left:=Left+Random(2*MAX_STEP)-MAX_STEP;
end;

2) Прыжки вправ, потом влево, потом вправо, но на случайную длину

var
  Form1: TForm1;
  napr:Shortint;
implementation
//  и т.д. 
procedure TForm1.FormCreate(Sender: TObject);
begin
 napr:=1;
end;
procedure TForm1.Button1Click(Sender: TObject);
const MAX_STEP=20;
begin
  Left:=Left+napr*Random(MAX_STEP);
  napr:=-napr;
end;

[lepump]

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

Все равно, не все понятно.
Ну ладно, 2 варианта.
1) Случайные независимые прыжки на случайное расстояние. То есть может быть два, три раза подряд вправо

procedure TForm1.Button1Click(Sender: TObject);
const MAX_STEP=20; // максимальная длина прыжка
begin
  Left:=Left+Random(2*MAX_STEP)-MAX_STEP;
end;

2) Прыжки вправ, потом влево, потом вправо, но на случайную длину

var
  Form1: TForm1;
  napr:Shortint;
implementation
//  и т.д. 
procedure TForm1.FormCreate(Sender: TObject);
begin
 napr:=1;
end;
procedure TForm1.Button1Click(Sender: TObject);
const MAX_STEP=20;
begin
  Left:=Left+napr*Random(MAX_STEP);
  napr:=-napr;
end;

Спасибо тебе огромное! Очень много увидел своих ошибок, буду учить.

[type_Oleg]

Да, и чтобы форма не выползала за экран, проверяйте
Left>0 - не вылазит влево
(Screen.Width-Left-Width)>0 - не вылазит вправо