Приветствую всех. Друзья помогите справится с задачей. Надо чтоб при выборе в компоненте ComboBox менялась картинка в компоненте TImage
Как поменять цвет например самого обьекта form разобрался а как к картинкам привязать не пойму.
Картинки находятся в папке image
С изменением цвета код такой
Код:
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.
Админ: Пользуемся тегами для оформления кода!
Впринципе разобрался. Но на сколько корректно подскажите.
Код:
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;