procedure TForm1.Timer1Timer(Sender: TObject);
begin
if x <= x+75 then begin
x:= x+1;
button1.left := button1.left+x;
end
else Timer1.Enabled:= false;
end;
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
x:=button1.Left;
Timer1.Interval:= 20;
Timer1.Enabled:= true;
end;
почему кнопка не останавливается?((
|