Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c