stringgrid如何使字体居中

stringgrid如何使字体居中？？ 问题点数：20、回复次数：4Top

1 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-17 16:04:31 得分 0

procedure   TForm1.StringGrid1DrawCell(Sender:   TObject;   ACol,   ARow:   Integer;  
    Rect:   TRect;   State:   TGridDrawState);    
  var  
    s:   String;    
    R:   TRect;  
  begin  
      with   StringGrid1   do  
      begin  
          S   :=   Cells[ACol,ARow];  
          R   :=   Rect;  
          DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER   or   DT_SINGLELINE   or   DT_VCENTER);     //文字居中  
      end;  
  end;Top

2 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-17 16:05:40 得分 20

漏了一句，不好意思  
   
  procedure   TForm1.StringGrid1DrawCell(Sender:   TObject;   ACol,   ARow:   Integer;  
    Rect:   TRect;   State:   TGridDrawState);    
  var  
    s:   String;    
    R:   TRect;  
  begin  
      with   StringGrid1   do  
      begin  
          Canvas.FillRect(Rect);  
          S   :=   Cells[ACol,ARow];  
          R   :=   Rect;  
          DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER   or   DT_SINGLELINE   or   DT_VCENTER);     //文字居中  
      end;  
  end;Top

3 楼spiderdbk（东方蜘蛛）回复于 2006-03-17 16:11:32 得分 0

谢谢！  
  不过我在创建窗体时绘画这个stringgrid，标题出现了重影，就是说又把原来的标题重写了一遍  
  怎么解决呢？  
  Top

4 楼spiderdbk（东方蜘蛛）回复于 2006-03-17 16:12:52 得分 0

哈哈，好了  
   
  就差那一句，刚看到  
  谢谢阿Top

相关问题

• stringgrid
• 居中
• arow
• acol
• trect
• rect
• canvas
• begin
• or dt

• 帖主：spiderdbk
• cuteant

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载