Delphi实现DBGrid列宽度自动调整

• 　　for i := 0 to -1 + DBGrid.Columns.Count do
  　　begin
  　　TotWidth := TotWidth + DBGrid.Columns[i].Width;
  　　if DBGrid.Columns[i].Field.Tag <> 0 then
  　　Inc(ResizableColumnCount);
  　　end;
  
  　　//为每个列分隔线增加1PX
  
  　　if dgColLines in DBGrid.Options then
  　　TotWidth := TotWidth + DBGrid.Columns.Count;
  　　if dgIndicator in DBGrid.Options then
  　　TotWidth := TotWidth + IndicatorWidth;
  　　VarWidth := DBGrid.ClientWidth - TotWidth;
  
  　　//平均分配变化宽度的值
  
  　　//给所有需要自动调整的列
  
  　　if ResizableColumnCount > 0 then
  　　VarWidth := varWidth div ResizableColumnCount;
  　　for i := 0 to -1 + DBGrid.Columns.Count do
  　　begin
  　　AColumn := DBGrid.Columns[i];
  　　if AColumn.Field.Tag <> 0 then
  　　begin
  　　AColumn.Width := AColumn.Width + VarWidth;
  　　if AColumn.Width < AColumn.Field.Tag then
  　　AColumn.Width := AColumn.Field.Tag;
  　　end;
  　　end;
  　　end;
  
  　　最后，应用这一个函数:
  
  　　Procedure TForm1.FormResize(Sender: TObject);
  　　begin
  　　FixDBGridColumnsWidth(DBGrid1);
  　　end;
  
  　　上面一个简单的函数解决了经常会碰到的关于数据列的问题，遇到问题时多多开动脑筋，而不要一味的去找第三方控件，这样长期坚持下去就会真正提高自己的水平，才会从一名程序泥水匠变成真正的软件设计师。

  （出处：急速软件下载学院）

• 上一页 [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

特别推荐