关于StringGrid的问题

Question

请问各位大侠，如何让StringGrid中的Cell显示的字放在中间，和DBGrid一样，由什么属性或者由什么简单方法解决这个问题

Answer 1

自己画.
Gird有一个OnDrawCell事件，在那个事件里自己想怎么写就怎么写

Answer 2

OnDrawCell
var
 s:string;
 r:TRect;
begin  with TStringGrid(Sender) 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;