элементарное

[guffer]

Я заколебался с этим кодом,вроде всё элементарно,но не хочет работать.
В общем на форме есть Image и Timer,надо чтоб при срабатывании таймера картинка плавно двигалась.(интервал таймера=1000)

procedure TForm2.Timer1Timer(Sender: TObject);
var a:integer;
begin
a:=48;
image1.Left:=a+1
end;

[Вавел из ГМТУ]

Каждый раз image1.Left будет равно 49..... Дагадываетесь почему?

[psycho-coder]

Еще бы она двигалась
Интервал поставьте поменьше 100 или 50.

procedure TForm2.Timer1Timer(Sender: TObject);
var a:integer;
begin
Iimage1.Left:=Image1.Left + 4;
end;

[DeKot]

To Psysho-Coder :

var a:integer;

А это зачем тогда?

[KREGI]

guffer если тебе нужно изменять положение image то сделай цикл, иначе у тебя mage1.Left будет 49

[psycho-coder]

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

To Psysho-Coder :

А это зачем тогда?

Забыл удалить ((

[Polotenchik]

procedure TForm2.Timer1Timer(Sender: TObject);
var a:integer;
begin
for a:=0 to 48 do
image1.Left:=a+1;
end;

[spamer]

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

procedure TForm2.Timer1Timer(Sender: TObject);
var a:integer;
begin
for a:=0 to 48 do
image1.Left:=a+1;
end;

Polotenchik, и к чему Вы тут цикл всунули? Таймер вам уже и будет тем же циклом.
См. пример psycho-coder

[guffer]

Всем спасибо!оч. помогли!

[KREGI]

spamer я когда про цикл говорил, делал без таймера, вот и написал, а так то что psycho-coder написал, идеально работает