在delphi中,grid是不能够自动调整列宽度的。其中也找过很多插件,而未能找到。于是自己写了一个函数用于实现这个功能,希望能帮到有需要的人。
procedure TMainForm.FixDBGridColumnWidth(const DBGrid: TDBGrid);
var
i : Integer;
cusWidth : Integer;//改变窗体大小后,数据表格宽度
varWidth : Integer; //每列宽度
totColumns : Integer;
begin
totColumns :=0;
cusWidth := Abs(DBGrid.ClientWidth);
for i := 0 to -1 + DBGrid.Columns.Count do
begin
Inc(totColumns);
end;
varWidth := cusWidth div totColumns;
for i := 0 to DBGrid.Columns.Count-1 do
begin
if i = DBGrid.Columns.Count-1 then
begin
DBGrid.Columns[i].Width := varWidth - 16;
end
else begin
DBGrid.Columns[i].Width := varWidth;
end;
end;
end;
然后在改变窗体大小时,执行FixDBGridColumnWidth这个过程,传入TDGrid的一个实例
分享到:
相关推荐
Delphi 实现TDBGrid组件的斑马线显示,也就是TDBGrid的不同行显示不同的颜色,设置不同的背景色,让数据显示更清淅,看上去像斑马线,俗称隔行换色,本例子是结合数据库实现的,若要正常运行,请先附加Database...
Delphi通过RTTI实现TdxDBGrid,TDBGrid标题,列宽,显示顺序,字体大小颜色等动态配置
本Delphi源码演示TDBGrid多行数据操作..rar
Delphi TDBGrid自定义布局,可以按用户保存列顺序等。
Delphi演示TDBGrid组件的斑马线提示功能..rar
Delphi7.0将TDBGrid导入到Excel表中,测试程序先连接好SQLSERVER数据库,并将数据读取到TDBGrid中,然后再将数据从TDBGrid导入到Excel表中,为了测试方便,SQLSERVER数据库文件已经附在源码包中。以下代码片断会有...
摘要:Delphi源码,数据库应用,TDBGrid ...Delphi中的TDBGrid多行数据操作例子源代码,附带有SQLSERVER数据库文件,测试前请先附加数据库,编译时可能有点慢,先连接数据库就好了。 运行环境:Windows/Delphi7
delphi使用TListView,TDBGrid,TStringGrid,TDrawGrid例子访问access数据库.zip
EhLib Professional Full Source For Delphi XE11.2 ,已经在... 能够调整列大小以将表宽度调整为用户表宽度。能够更改高度和标题… PrintdBGrideh:提供从TDBGridEh组件预览和打印的功能和例程,并具有更多功能......
根据StringGrid列内容自动调整大小 根据列排序TStringGrid 检查Stringgrid中指定单元示范选定 检查TMemo能否取消操作 检查TreeView是否完全展开或折叠 检查TStringGrid是否有滚动条 添加接口对象到list 清空...
以在delphi5中安装举例,在别的版本delphi中请用相应版本的包,比如在delphi6中, rm_r50.dpk换成rm_r60.dpk即可 1.首先安装tb97,或者将tb97中的源程序释放到c:\rm\source目录中,tb97下载地址: ...
Skin++ For Delphi目前全面支持Delphi4、Delphi5、Delphi6、Delphi7、Delphi8、Delphi2005、Delphi2006。 迄今为止,Delphi支持4种类型的应用程序: 1、VCL Forms Application – Delphi for Win32 (该类型在...
Skin++ For Delphi目前全面支持Delphi4、Delphi5、Delphi6、Delphi7、Delphi8、Delphi2005、Delphi2006。 迄今为止,Delphi支持4种类型的应用程序: 1、VCL Forms Application – Delphi for Win32 (该类型在...
TDBGrid 7.0注册机,已经测试OK
13.3 实例——在Delphi中操作Word 13.4 实例——使用TWordDocument组件连接Word自动化服务器 13.5 实例——建立与Excel连接 13.6 实例——以OLE方式建立与Excel连接 第14章 Internet组件页 14.1 Web服务器应用...
自动调整列大小以将网格宽度设置为等于客户端宽度。 能够更改行和标题的高度。 允许自动中断单行长标题和数据行 到多行。 标题可以充当按钮,并可以选择显示排序标记。 自动排序标记。 能够用省略号截断长...
0247 自动调节ComboBox列表宽度 164 0248 如何转换数据库表为CSV文件格式 164 0249 删除文本文件中的多余空格 165 0250 创建和使用资源文件 166 第8章 窗体与界面设计 169 8.1 窗体标题栏控制 170 0251...
我自己做的 支持滚轮的TDBGrid ,还带排序功能
示范如何将TDBGrid 的数据利用 QuickRepot印出的例子