Guten Morgen,
hier eine kleine Lernhilfe - der Lerneffekt tritt natürlich nur ein, wenn du den Code anhand der Delphi Online-Hilfe nachzuvollziehen versuchst:
Delphi-Quellcode:
procedure SelectRow(sg: TStringGrid; index: Integer);
begin
with sg do
if goRowSelect in Options
then Row := index
else Selection := TGridRect(Rect(FixedCols, index, Pred(ColCount), index));
end;
procedure TDemoForm.ButtonClick(Sender: TObject);
begin
SelectRow(StringGrid, 2);
end;
Freundliche Grüße vom marabu