Цитата:
Сообщение от vasilych
procedure TForm1.Timer1Timer(Sender: TObject); begin Button2.Left:=Button2.Left+10; end;
|
Я бы сделал так:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Button2.left<Form1.width-Button2.width then Button2.Left:=Button2.Left+10;
end;
это чтобы кнопка с формы совсем не убежала