procedure TForm1.Button1Click(Sender: TObject);VAR NewSel: TGridRect;beginWITH StringGrid1 DOBEGINNewSel.Left := FixedCols;NewSel.Top := FixedRows;NewSel.Right := ColCount-1;NewSel.Bottom := FixedRows;Selection := NewSel;END;end; |
- Neil J. Rubenking
добавляет:
Да. Догадаться сложновато, но:
StringGrid1.Row := номер строки от нуля; StringGrid1.Col := номер столбца от нуля; [000818]