Всю голову себе сломал, хоть тресни FindComponent не верно отрабатывает если перед ним не сделать Form7.Show;
Не рабочий код:
Код:
dm.DbGrid2.DataSource.DataSet.Active:=true;
dm.DbGrid2.DataSource.DataSet.First;
while not dm.DbGrid2.DataSource.DataSet.Eof do
begin
i:=dm.DbGrid2.DataSource.DataSet.RecNo;
{ with Form7 do }
(Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text:=dm.DbGrid2.DataSource.DataSet.FieldValues['FachPK'];
if ((Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text='СПЕЦИАЛЬНОСТЬ') then
begin
(Form7.FindComponent('Edit'+IntToStr(i+4)) as TEdit).Enabled:=False;
(Form7.FindComponent('ComboBox'+IntToStr(i)) as TComboBox).ItemIndex:=1;
(Form7.FindComponent('ComboBox'+IntToStr(i)) as TComboBox).Enabled:=False;
(Form7.FindComponent('MaskEdit'+IntToStr(i+6)) as TMaskEdit).Enabled:=False;
(Form7.FindComponent('Edit'+IntToStr(i+8)) as TEdit).Enabled:=False;
end;
dm.DbGrid2.DataSource.DataSet.Next;
end;
Рабочий код:
Код:
dm.DbGrid2.DataSource.DataSet.Active:=true;
dm.DbGrid2.DataSource.DataSet.First;
Form7.Show;//ОТЛИЧИЕ ТОЛЬКО В ЭТОЙ СТРОКЕ
while not dm.DbGrid2.DataSource.DataSet.Eof do
begin
i:=dm.DbGrid2.DataSource.DataSet.RecNo;
{ with Form7 do }
(Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text:=dm.DbGrid2.DataSource.DataSet.FieldValues['FachPK'];
if ((Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text='СПЕЦИАЛЬНОСТЬ') then
begin
(Form7.FindComponent('Edit'+IntToStr(i+4)) as TEdit).Enabled:=False;
(Form7.FindComponent('ComboBox'+IntToStr(i)) as TComboBox).ItemIndex:=1;
(Form7.FindComponent('ComboBox'+IntToStr(i)) as TComboBox).Enabled:=False;
(Form7.FindComponent('MaskEdit'+IntToStr(i+6)) as TMaskEdit).Enabled:=False;
(Form7.FindComponent('Edit'+IntToStr(i+8)) as TEdit).Enabled:=False;
end;
dm.DbGrid2.DataSource.DataSet.Next;
end;
UPD. Причем даже нет, не так, НЕ ПРАВИЛЬНО отрабатывает именно
Код:
if ((Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text='СПЕЦИАЛЬНОСТЬ') then
т.е. в поле MaskEdit2 100% находится текст СПЕЦИАЛЬНОСТЬ который он все равно не верно сравнивает...
Собственно вопрос как сделать так чтоб выполнить findcomponent над form7 без необходимости показывания 7 формы?
P.S. Parent'ом для искомых компонентов является GroupBox1, но мне это нифига не помогло ибо при поиске в паренте выдает Error