Как сделать, чтобы в bitmap button`a добавлялся i-ый файл?

← →
vegarulez © (2006-04-05 12:02) [0]

Вообще проблема вот в чём.
Есть кнопки, и есть рисунки, которые нужно на них поместить.
Написал код который добавляет на i-ую кнопку рисунок.

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
for i:=2 to ControlCount-1 do

if Controls[i] is TButton then
(Controls[i] as TButton).Bitmap.LoadFromFile(C:\picture\key.bmp");
end;

А как его модифицировать, чтоб допустим добавлялся key[i].bmp?
Тобишь разные рисунки на разные кнопки.... кнопка[i]->рисунок[i].

← →
Foxtrot (2006-04-05 12:15) [1]

Может так
procedure TForm1.FormCreate(Sender: TObject); var i:Integer; begin for i:=2 to ControlCount-1 do if Controls[i] is TButton then (Controls[i] as TButton).Bitmap.LoadFromFile(C:\picture\key" + IntToStr(i) +".bmp"); end;

← →
Foxtrot (2006-04-05 12:17) [2]

лучше использовать TSpeedButton и рисунки назначать из TImageList

← →
vegarulez © (2006-04-05 15:25) [3]

А у тебя нет примера кода на твоё решение?
Просто не знаю как работает TImageList.

Забыл сказать спасички.
Просто мне видишь нужно если вдруг рисунки поменяются, чтоб на форме они тоже поменялись, а вот сечас смотрю TImageList, и так понимаю что туда кидается набор рисунков, которые там остаются статически.Или я ошибаюсь? При изменении рисунков, в TImageList они тоже поменяются?

Как сделать, чтобы в bitmap button`a добавлялся i-ый файл? Найти похожие ветки