Таймер

[Blondinko]

Прога... нужно чтобы картинка по оси х двигалась в зависимости от двух условий. на форме две радиобаттон... не могу составить код.. просьба помочь огромная

[konkurent]

ну и... а проблему описать?? :-)

[_Dmitry]

Сформулируйте техническое задание: что за картинка, какие условия, что переключается радиобаттоном? Сейчас нет никаких данных.
Например, если картинка загружена в Image, то меняя его параметры: Top и Left двигайте ее.

[Alex21]

Возьмите лучше компонент RadioGroup1.
Общзий случай выглядит так:

 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
        {...какой переключатель установлен?...}
  case Form1.RadioGroup1.ItemIndex of
    0: begin
        {выполнено одно условие}
       end;
    1: begin
        {выполнено другое условие}
       end;
  end;
end;

Объясняйте более популярно чего хотите.

[Blondinko]

Спасибо за помощь, мальчики, я написала код сама!

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Left:=Image1.Left-1*ScrollBar1.Position;
If Image1.Left<-200 then Image1.Left:=500;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

[Alex21]

Молодец! Все бы так ))
Только

1*ScrollBar1.Position

Единица зачем?

[Blondinko]

убрала...
не внимательная я!