StringGrid 的滚动条

Question

默认 Both,竖滚动条是没问题的。2 列，一列短，另一列很长，需要出现横滚动条，但它却让我失望了，根本没有横滚动条。

Answer 1

不会吧，scrollbars为ssboth应该都有

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var
  s : String;
begin
  with StringGrid1 do
  begin
    Align := alClient;
    RowCount := 2;
    ColCount := 2;
    s := StringOfChar('a',200);
    Cells[0,1] := 'asdf';
    Cells[1,1] := s;
    ColWidths[1] := Canvas.TextWidth(s);//它绝不会自动出现，这是可以理解的
  end;
end;试试看，一个窗体，上面放一个 StringGrid，贴这段代码看看。