Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
for i:= 0 to StringGrid1.ColCount -1 do begin
StringGrid1.Cells[i, 0] := IntToStr(i+1);
end;
for i:= 0 to StringGrid1.RowCount -1 do begin
StringGrid1.Cells[0, i] := IntToStr(i+1);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Row := 50;
StringGrid1.Col := 50;
end;
musst noch drauf achten das du bei den options des sg goRowSelect aushast, sonst kanste keinen einzelnen zellen selektieren