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

выбор панели   Найти похожие ветки 

← →
DmitriyR   (2006-01-18 10:13) [0]

вот кусок кода подскажите как реалезовать следующее:

for i := 1 to 5 do
begin
 panel(вот тут надо как то указать какую именно).color := a[i];
end;

На форме 5 панелей надо циклом их покрасить а вот как указать какую Panel1 .... Panel5

---

← →
umbra ©   (2006-01-18 10:34) [1]

если панели называются Panel1, Panel2 и т.д, то можно так

for i := 0 to ControlCount - 1 do
if Controls[i] is TPanel then
     (Controls[i] as TPanel).Color := a[StrToInt(Controls[i].Name[6])];


---

← →
evvcom ©   (2006-01-18 10:39) [2]

> if Controls[i] is TPanel then
>      (Controls[i] as TPanel).

TPanel(Controls[i]). !

Можно и FindComponent.

---

← →
umbra ©   (2006-01-18 10:49) [3]

evvcom ©   (18.01.06 10:39) [2]

Controls[i] as TPanel читается легче, хотя это и повторная проверка совместимости типов. На пяти объектах, я думаю, разницу заметить трудно

---

← →
DmitriyR   (2006-01-18 10:56) [4]

Всем спасибо огромное работает :)

for i := 1 to 5 do
 (Controls[i] as TPanel).color := a[i];

---

← →
Плохиш ©   (2006-01-18 11:02) [5]

> DmitriyR   (18.01.06 10:56) [4]
> Всем спасибо огромное работает :)
>
> for i := 1 to 5 do
>  (Controls[i] as TPanel).color := a[i];

А теперь добавь на форму ещё статусбар, к примеру.

---

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

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



Память: 0.46 MB
Время: 0.024 c