Delphi实现DBGrid列宽度自动调整

• 
  　　大多数程序设计的爱好者选择并使用Delphi来编写软件，都是被其中丰富而功能强大的VCL控件所吸引。Delphi自带的数据感知(Data-Aware)控件，更是成为开发MIS软件的程序员之首选。在那么多数据感知控件中，TDBGrid由于其使用方便、显示信息量大成为最引人注目的一员，大量的国内外软件中都出现了它的身影。或许是由于使用的人多了，对于它的期望也会更高，永远追求无限趋向于完美境界的程序员不会放过每一个能够改良TDBGrid的机会。
  
  　　经常使用TDBGrid的用户都知道，它没有提供这样的一种选择，使得我们能够让它的每一列与所要显示的数据的宽度相匹配。使得用户需要在程序运行时，手工对每一列进行调整，在下次运行这个程序时又得再做一遍同样的工作（图1）。
  
  　　
  
  　　 （图1）
  
  　　在进行修改后，我们可以得到一个更加智能化的TDBGrid，如果TDBGrid中所有列的宽度加起来大于它本身的宽度，那么智能化的TDBGrid将会在它所含的最后一列的右边留出空白（见图2）；反之如果TDBGrid中所有列的宽度加起来小于它本身的宽度，则会在它的下部显示一个水平滚动条，用户就可以左右拖动该滚动条，显示更多想要的内容。
  
  　　
  
  　　 (图2)解决方案：
  
  　　在本文中我将提供一个简便的过程（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 : TColumn;
  　　begin
  
  　　//在重新调整前所有列的宽度
  
  　　TotWidth := 0;
  　　VarWidth := 0;
  
  　　//有多少列需要自动调整
  
  　　ResizableColumnCount := 0;
  
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi实现DBGrid列宽度自动调整 相关文章：
• ·非主流ps教程:制作红绿色调效果
• ·Windows Vista中如何调整雅黑字体DPI
• ·Windows Vista系统调试外置麦克风技巧
• ·调整CSS类型的顺序改变链接翻滚
• ·关于EJB调用原理分析
• ·微调Vista“用户帐户控制”功能
• ·Javascript代码直接调用计算机中的程序
• ·Photoshop轻松为照片调出艳丽色彩
• ·Vista下调整硬盘分区不用愁
• ·教你正确调整DC的白平衡
• Delphi实现DBGrid列宽度自动调整 相关软件
• ·侧身警界—一个选调生的警察生涯
• ·单词协调
• ·《跟自己调情》
• ·《格调女性》
• ·网络调试维修资料
• ·中国UFO悬案调查--CCTV10
• ·新疆富豪失踪调查
• ·MBA全套教材之市场调研
• ·2002年苏锡常镇高三调查语文试卷
• ·2002年苏锡常镇高三调查英语试卷

上一篇:今天做了一个小软件，总结了一些经验与大家共享

下一篇:Delphi下汉字输入法的编程及使用

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐