Delphi实现DBGrid列宽度自动调整

weixin_30323631

于 2019-07-21 23:01:20 发布

阅读量1k

点赞数

原文链接：http://www.cnblogs.com/tecsoon/archive/2009/03/04/1403037.html

版权

本文介绍了如何在Delphi中使用自定义过程自动调整TDBGrid控件的列宽度，以适应程序运行时的需求。通过在TForm的OnCreate事件中设置列的最小宽度，并在FormResize事件中调用FixDBGridColumnsWidth函数，实现动态调整列宽以充分利用空间。

摘要由CSDN通过智能技术生成

　　在本文中我将提供一个简便的过程（Procedure)来解决上面的问题，它能够在程序运行时自动固定TDBGrid中所显示列的宽度。

　　首先，在TForm的OnCreate事件中添加下面的代码：

　　Procedure TForm1.FormCreate(Sender: TObject);
　　begin

　　//在Tag属性中设置需要自动调整的列的最小宽度（固定值）

　　//这里将列宽值设为40px

　　Table1.FieldByName('FirstName').Tag := 40;

　　//这里设置一个变化的值

　　//该值是做过运算的列标题的宽度值

　　Table1.FieldByName('LastName').Tag := 4 + Canvas.TextWidth( Table1.FieldByName('LastName').DisplayName);
　　end;

　　其次，最关键的一个过程（Procedure)，就是用它来控制列的宽度：

　　Procedure FixDBGridColumnsWidth(const DBGrid: TDBGrid);

　　var
　　i : integer;

　　TotWidth : integer;//定义整个宽度

　　VarWidth : integer;//定义变化的宽度

　　ResizableColumnCount : integer;//定义变化宽度列的总数

　　AColumn : TColum