如何在TStringGrid选择一个矩形框(并获得启始Col,Row和结束Col,Row的值)？

Question

如何在TStringGrid选择一个矩形框(并获得启始Col,Row和结束Col,Row的值)？

Answer 1

如果用代码选择，这样：
procedure TForm1.Button1Click(Sender: TObject);
var
  R:TGridRect;
begin
  R.top := 1;
  R.Left := 1;
  R.Right := 3;
  R.Bottom := 3;
  StringGrid1.Selection :=  R;
end;如果想让用户自由选择，将Option 里面的goRangeSelect设为True;
同样的：
StringGrid1.Selection.topLeft 是起始；
结束当然就是StringGrid1.Selection.bottomright了