3 replies to this topic

[Burhan Cakmak]

Hi

I am using code

CODE

PRocedure Prop(Grd, Col, Prp, Val : String);
Begin
if Prp='Caption' then TNextGrid(FindComponent(Grd)).ColumnByName[Col].Header.Caption := Val else
if Prp='Width' then TNextGrid(FindComponent(Grd)).ColumnByName[Col].Width:=StrToInt(Val);
end;

It is code error ColumnByName




I using code

CODE

PRocedure Prop(Grd, Col, Prp, Val : String);
Begin
if Prp='Caption' then TNextGrid(FindComponent(Grd)).Columns[0].Header.Caption := Val else
if Prp='Width' then TNextGrid(FindComponent(Grd)).Columns[0].Width:=StrToInt(Val);
end;

It is code running



what promlem with ColumnByName ?


Thanks

[Boki (Berg)]

Hello Burhan,

For me your code work fine. Please check if column name is passed correctly.

Best regards

[Burhan Cakmak]

Hi Boki

I using code runtime

CODE

....
procedure TForm1.Button1Click(Sender: TObject);
var
NextGrid1: TNextGrid;
begin
// Grid Created
NextGrid1 := TNextGrid.Create(Self);
with NextGrid1 do
begin
Name := 'NextGrid1';
Parent := Self;
Left := 488;
Top := 284;
Width := 250;
Height := 150;
TabOrder := 0;
TabStop := True;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// Column Created
TNextGrid(FindComponent('NextGrid1')).Columns.Add(TNxTextColumn, 'Osman');
TNextGrid(FindComponent('NextGrid1')).ColumnByName['Osman'].Header.Caption:='Deneme';
TNextGrid(FindComponent('NextGrid1')).ColumnByName['Osman'].Width:=150;
// Column by name error....
end;
....

What problem with ColumnByName method,

Thanks

[Boki (Berg)]

Hello Burhan,

You need to set Name property of column:

CODE

procedure TForm1.Button2Click(Sender: TObject);
begin
// Column Created
TNextGrid(FindComponent('NextGrid1')).Columns.Add(TNxTextColumn, 'Osman').Name := 'Osman';
TNextGrid(FindComponent('NextGrid1')).ColumnByName['Osman'].Header.Caption:='Deneme';
TNextGrid(FindComponent('NextGrid1')).ColumnByName['Osman'].Width:=150;
// Column by name error...
end;

In your example when using Columns.Add you are setting Caption property to 'Osman'

I hope that now helps.

Best regards