var
t_Column :TColumn ;
begin
t_Column := dbgrid1.columns.add ;
t_Column.FieldName := '字段名' ;
t_Column.title.caption := '标题' ;
...
end ;
t_Column :TColumn ;
begin
t_Column := dbgrid1.columns.add ;
t_Column.FieldName := '字段名' ;
t_Column.title.caption := '标题' ;
...
end ;
解决方案 »
- 大家进来讨论一下:模拟Windows2K中域的管理.
- 急:用SELECT,UPDATE语句写的系统,自己机器上运行正常,安装到其他机器上跟踪的UPDATE语句无问题,但就是不执行?
- 假如有2个QQ聊天窗口属于2个不同的QQ,怎么区别他们是属于哪个QQ呢??
- 矩阵算法问题求解
- 多层分布式上网需要设置些什么?
- 一个简单的for循环的语句
- 天然呆纯门外汉问个DELPHI问题
- 谁能给我一个完整的数据备份和清除历史记录的代码???
- 请大家讨论一下,DELPHI里DLL文件和PACKAGE文件各自有何优缺点?
- VB 转Delphi 串口接收 '''''''''''sos
- 急!关于动态生成文件夹的问题?
- 为什么没有人回答???
begin
dbgrid1.columns[dbgrid1.columns.count] := dbgrid1.columns.add ;
with dbgrid1.columns[dbgrid1.columns.count-1] do
begin
FieldName := '字段名' ;
title.caption := '标题' ;
...
end ;
end ;