简单的StringGrid问题，快来拿分！

Question

StringGrid中怎么把内容都对齐到右边呢？
比方 String1.cell[0,0]:='aaa';
如何显示'aaa'到单元格右侧呢？

Answer 1

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  s:string;
begin
  with StringGrid1 do
    begin
      Canvas.FillRect(Rect);
      s:='fff';
      DrawText(Canvas.Handle,PChar(s),Length(s),Rect,DT_RIGHT or DT_SINGLELINE or DT_VCENTER);
    end;
end;