Combobox и image

[logitech12]

Добрый день! Прошу форумчан мне помочь!
У меня есть combobox на форме, мне нужно чтобы при выборе определенного пункта из комбобокса на форме появлялась определенная картинка.. никак не могу додуматься.. подскажите пожалуйста!

[evg_m]

у Combobox есть событие OnChange и свойство ItemIndex
в событии проверяй свойство и рисуй(показывай).

[logitech12]

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

подскажите пожалуйста очень срочно нужно сделать.. заранее благодарен!

[phomm]

на форму кидаем Timage и tcombobox, кладем куда надо на диске 60 картинок и прописываем путь до них в строчке с комментом

const imgcnt = 60;
var imgar : array [1..60] of tbitmap;
...
procedure tform1.formcreate(sender : tobject);
var i : byte;
begin
for i := 1 to imgcnt do begin
imgar[i] := tbitmap.create;
imgar[i].loadfromfile('c:\dir\image'+inttostr(i)+'.bmp');  // путь до картинок с именем и сквозной нумерацией
combobox1.items.add('картинка'+inttostr(i))
end; 
end;

procedure tform1.combobox1change(sender : tobject);
begin
image1.picture := imgar[combobox1.itemindex;
end;

procedure tform1.formclose(sender : tobject ; action : tcloseaction);
var i : byte;
begin
for i := 1 to imgcnt do
imgar[i].free;
end;

код прямо так написал, ибо простейший, и, конечно, не проверял.. спать уже отбываю ))

[dalisa]

а как это реализовать без использования массива, так как у меня в combobox загружаются данные из таблицы в которой количество картинок постоянно увеличивется

[phomm]

Используя компоненты для работы с БД. DBcombobox , технологию доступа к бд, скорее всего ADO, таблицу, в которой при связи с базой должны получить blob-поле и при правильном подходе комбобокс сам заполнится. А в имейдж картинку грузить по айдишнику (KeyValue) из комбобокса. По-моему, блоб поле сохранять в stream и потом Image.LoadFromStream. Конкретнее советую пройтись поиском по форуму вот например и далее поищите.