Текущий архив: 2003.01.20;
Скачать: CL | DM;

Вниз

ComponentsCount   Найти похожие ветки 

← →
Solskjǽr   (2003-01-10 13:42) [0]

Надо всем гридам приложения (несколько форм) установить свойство
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...)

---

← →
MBo ©   (2003-01-10 13:48) [1]

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) [2]

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

---

← →
Groove ©   (2003-01-10 13:58) [3]

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;
типа того...

---

← →
Solskjǽr   (2003-01-10 14:16) [4]

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

---

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

Текущий архив: 2003.01.20;
Скачать: CL | DM;

Наверх

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