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

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

выбор панели [D6, Win2k, WinXP]

DmitriyR ©   (2006-01-18 10:13:00) 

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

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

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

---

Плохиш   (2006-01-18 11:02:00) [1]

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

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

---

DmitriyR   (2006-01-18 10:56:00) [2]

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

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

---

umbra   (2006-01-18 10:49:00) [3]

evvcom ©   (18.01.06 10:39) [2]

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

---

evvcom   (2006-01-18 10:39:00) [4]

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

TPanel(Controls[i]). !

Можно и FindComponent.

---

umbra   (2006-01-18 10:34:00) [5]

если панели называются 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])];


---

Наверх