[Macrobot]

Приветствую всех. Друзья помогите справится с задачей. Надо чтоб при выборе в компоненте ComboBox менялась картинка в компоненте TImage
Как поменять цвет например самого обьекта form разобрался а как к картинкам привязать не пойму.
Картинки находятся в папке image

С изменением цвета код такой

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.ComboBox1Change(Sender: TObject); var i: integer; begin i:=combobox1.ItemIndex; case i of    0: color:= clred;  1: color:= clblue;  2: color:= clgreen; end; end; end.

Админ: Пользуемся тегами для оформления кода!

Впринципе разобрался. Но на сколько корректно подскажите.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox1.ItemIndex = 0 then     Image1.Picture.LoadFromFile('1.jpg')     else if ComboBox1.ItemIndex = 1 then     Image1.Picture.LoadFromFile('2.jpg')     else if ComboBox1.ItemIndex = 2 then     Image1.Picture.LoadFromFile('3.jpg')     else if ComboBox1.ItemIndex = 3 then     Image1.Picture.LoadFromFile('4.jpg')      else if ComboBox1.ItemIndex = 4 then     Image1.Picture.LoadFromFile('5.jpg')    end;