关于StringGrid类型的居中实现

• Delphi • 暂无评论 • •2,946 次查阅

stringgrid居中

在开发中有些地方采用StringGrid实现数据的操作，但是默认的是采用左对齐，无法设置居中。

实现方案只能采用自绘方案了。

 

 
  1. 在StringGrid的OnDrawCell事件中   
  2. var   
  3.     CellString:string;   
  4. begin   
  5.      //if  ARow = 0  then //头部居中  
  6.     //if  ARow<StringGrid.FixedRows  then //注释此句全部居中  
  7.     begin   
  8.         CellString := StringGrid.Cells[ACol,  ARow];   
  9.         StringGrid.Canvas.TextRect(rect,rect.left+(rect.right – rect.left – StringGrid.Canvas.TextWidth(CellString)) div 2,rect.top +(rect.bottom  –  rect.top – StringGrid.Canvas.TextHeight(CellString)) div 2,CellString)   
  10.     end;   
  11. end;   

 

分享到：

0 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如， ABC是本文的评论者之一，则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all '，将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称▼

沙发空缺中，还不快抢~