Технический форум - Двигать форму

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Двигать форму (http://www.tehnari.ru/f41/t96424/)

lepump

19.05.2014 19:20

Двигать форму

Есть форма, а на ней кнопка. При нажатии на кнопку Форма двигается вправо или влево, через рандом я полагаю. Что здесь не хватает?

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Left:=Form1.left -10;
end;

end.

poiu	19.05.2014 23:30

ну хотя бы так...

Код:

procedure TForm1.Button1Click(Sender: TObject);

var

 pos: integer;

begin

 pos:= random(50);

 // если четное, то двигаемся вправо

 if pos mod 2 = 0 then Form1.Left:= Form1.Left + random(200) + 10

 // иначе двигаемся влево

 else Form1.Left:= Form1.Left - random(200) - 10; //шаг минимум 11, ну чтобы хоть немного двигалась в сторону

end;

Часовой пояс GMT +4, время: 01:32.