Не удается установить Locked у Columns UniDBGrid в Runtime

[Serg]

Не удается установить Locked у Columns UniDBGrid в Runtime

[Sherzod]

9 minutes ago, Serg said:

Не удается установить Locked у Columns UniDBGrid в Runtime

Не все свойства могут быть изменены во время выполнения.

[Serg]

У меня динамические поля и я не могу задать до построения. Но первые 2 поля всегда одинаковые и должны быть Locked.

Возможно ли  решить?

 

[Sherzod]

33 minutes ago, Serg said:

У меня динамические поля и я не могу задать до построения.

Каким образом назначаете?

[Serg]

После получения данных.

with  MainForm.UniDBGrid11 do
     begin
       
       for i:=0 to Columns.Count-1 do
       begin

          if Columns[i].FieldName='subjob_id' then
          begin//=
            Columns[i].Visible:=false;
            Columns[i].Readonly:=true;
          
          end;//=

          if Columns[i].FieldName='subjob_id' then
          begin//=
            Columns[i].Visible:=false;
            Columns[i].Readonly:=true;
           
          end;//=

          if Columns[i].FieldName='jobBuilding_id' then
          begin//=
          Columns[i].Visible:=false;
          Columns[i].Readonly:=true;
          
          end;//=

          if Columns[i].FieldName='job_name' then
          begin//=
            Columns[i].Title.Caption:='Наименование <br> работ';
            Columns[i].Width:=125;
            Columns[i].DisplayMemo:=true;
            Columns[i].Expanded:=true;
            Columns[i].Title.Alignment:=taCenter;
            Columns[i].Readonly:=true;
            Columns[i].Locked:=true;
          end;//=

          if Columns[i].FieldName='subjob_name' then
          begin//=
            Columns[i].Title.Caption:='Наименование <br> подработ';
            Columns[i].Width:=125;
            Columns[i].DisplayMemo:=true;
            Columns[i].Expanded:=true;
            Columns[i].Title.Alignment:=taCenter;
            Columns[i].Readonly:=true;
          
          end;//=

          if i>3 then
          begin//=
          //Columns[i].Title.Caption:='Площадь<br>по группе<br>'+IntToStr(i-3);
            Columns[i].Width:=105;
            Columns[i].Title.Alignment:=taCenter;
            Columns[i].Editor:=MainForm.UniFormattedNumberEdit6;
            Columns[i].Readonly:=false;
          
          end;//=
       
       end;

[Sherzod]

18 minutes ago, Serg said:

После получения данных...

Я думаю, что лучшим решением на данный момент является динамическое создание сетки тоже.

[Serg]

И в созданной в Runtime сетке можно будет устанавливать Locked?

[Sherzod]

Just now, Serg said:

И в созданной в Runtime сетке можно будет устанавливать Locked?

Да.

[Serg]

Спасибо

 

 

[Sherzod]

Пожалуйста. 

[Serg]

Спасибо. Все работает