Скачать: CL | DM;

изменение в списке переменных   Найти похожие ветки 

← →
CoTr   (2007-06-16 16:25) [0]

На форме имеются Image1..Image100 :TImage. Как мне в цикле заполнить их canvas картинками?
Спасибо

---

← →
Johnmen ©   (2007-06-16 16:30) [1]

1. for i:=1 to 100
2. "Image"+i
3. FindComponent

---

← →
Desdechado ©   (2007-06-16 16:33) [2]

Может, проще работать с
a: array[1..100] of Timage
Хотя можно и через Components добраться

---

← →
CoTr   (2007-06-16 16:43) [3]

Спасибо, сделал так:

 for n := 0 to 99 do
   begin
   Rect1 := Rect(WidthChar*n,0,WidthChar*(n+1),53);

   jpn_char.Canvas.CopyRect(Rect2,Hiragana.Canvas,Rect1);
   with TImage(FindComponent("Image"+IntToStr(n+1))) do
   Canvas.Draw(0,0,jpn_char);
   end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c