怎样才能让stringgrid单元格中的文本居中对齐？

Question

怎样才能让stringgrid单元格中的文本居中对齐？

Answer 1

dickeybird888(于伟刚):请发给我吧!我的email是[email protected],先谢谢了!

Answer 2

怎样才能让stringgrid单元格中的文本居中对齐？

Answer 3

OnDrawCell:
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;