| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

vegarulez ©   (2006-04-05 12:02:00) 

Вообще проблема вот в чём.
Есть кнопки, и есть рисунки, которые нужно на них поместить.
Написал код который добавляет на 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].

---

vegarulez   (2006-04-05 16:38:00) [1]

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

---

vegarulez   (2006-04-05 15:25:00) [2]

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

---

Foxtrot   (2006-04-05 12:17:00) [3]

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

---

Foxtrot   (2006-04-05 12:15:00) [4]

Может так
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;

---

Наверх