我用兩個Button主要表達goRowSelect為true或false內容如下
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect];
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
StringGrid1.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goRowSelect];
end;
為何我用Button2把Rowselect為true時，會馬上在StringGrid反映出來，可是我用Button1把RowSelect設為false時
並不會馬上反映出來，我必須上移或下移她才會把StringGrid設為false
請問有辦法解決嗎?

procedure TForm1.Button1Click(Sender: TObject);
var
myRect: TGridRect;
begin
// set RowSelect to False
StringGrid1.Options := StringGrid1.Options - [goRowSelect];
myRect.Left := StringGrid1.Col;
myRect.Top := StringGrid1.Row;
myRect.Right := StringGrid1.Col;
myRect.Bottom := StringGrid1.Row;
StringGrid1.Selection := myRect;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// set RowSelect to True
StringGrid1.Options := StringGrid1.Options [goRowSelect];
end;

Fishman

------
Fishman