выбор панели

← →
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];

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

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

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