怎样在DBGrid中动态增加字段名？

Question

var Column:TColumn ;
Column :=  DBGrid.Columns.Add;
Column.Title.Caption := 'TEST';

Answer 1

var 
t_Column :TColumn ; 
begin 
t_Column := dbgrid1.columns.add ; 
t_Column.FieldName := '字段名' ; 
t_Column.title.caption := '标题' ; 
... 
end ;
借花献佛
 

Answer 2

不如控制的dataset的字段的visible属性

Answer 3

直接dbgrid1的Columns属性 
begin 
dbgrid1.columns[dbgrid1.columns.count] := dbgrid1.columns.add ; 
with dbgrid1.columns[dbgrid1.columns.count-1] do 
begin 
FieldName := '字段名' ; 
title.caption := '标题' ; 
... 
end ; 
end ; 
 
Top