StringGrid 能不能做全部选中的操作？

Question

我要在程序中控制StringGrid的所有行都选中。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  myRect: TGridRect;
begin
  myRect.Left := 1;  // first selected grid.
  myRect.Top := 1;
  myRect.Right := 2;    // cols
  myRect.Bottom := 4;   // rows
  StringGrid1.Selection := myRect;
end;

Answer 2

再改一下:
procedure TForm1.Button2Click(Sender: TObject);
var
  myRect: TGridRect;
begin
  myRect.Left := StringGrid1.FixedCols;  // first selected grid.
  myRect.Top := StringGrid1.FixedRows;
  myRect.Right := StringGrid1.ColCount - StringGrid1.FixedCols;    // cols
  myRect.Bottom := StringGrid1.RowCount - StringGrid1.FixedRows;   // rows
  StringGrid1.Selection := myRect;
end;