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

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

ComponentsCount [D6]

Solskjǽr ©   (2003-01-10 13:42:00) 

Надо всем гридам приложения (несколько форм) установить свойство
const.
Делаю:

for i:=0 to Application.ComponentCount-1 do
begin
for j:=0 to TForm(Application.Components[i]).ComponentCount-1 do
begin
TDBGridEh(TForm(Application.Components[i]).Components[j]).Columns[5].Color:=CG.BackgroundColor;
end;
end;

Что не так (Access violation...)

---

Solskjǽr   (2003-01-10 14:16:00) [1]

Большое спасибо,ребята. is DBGrid

---

Groove   (2003-01-10 13:58:00) [2]

for i:=0 to Application.ComponentCount-1 do
begin
if (Application.Components[i] is TForm) then
for j:=0 to TForm(Application.Components[i]).ComponentCount-1 do
begin
if (Application.Components[i].Component[j] is TDBGridEh) then

TDBGridEh(TForm(Application.Components[i]).Components[j]).Columns[5].Color:=CG.BackgroundColor;
end;
end;
типа того...

---

MBo   (2003-01-10 13:48:00) [3]

for i:=0 to screen.formcount-1 do
for j:=0 to screen.forms[i].componentcount-1 do
if screen.forms[i].components[j] is TDBGridEh then
TDBGridEh(screen.forms[i].components[j]).Columns[5].Color:=CG.BackgroundColor;

---

stone   (2003-01-10 13:48:00) [4]

Видимо в проекте есть не только TForm, но и DataModule(например)

---

Наверх