Hallo,
wenn ich dich richtig verstanden habe, dann möchtest du beim Klicken auf eine Zeile in StringGrid2, dass die entsprechende Zeile in StringGrid1 markiert wird. Eine kleine Änderung an AppendRow() und du kannst es so wie in meiner Demo machen:
Delphi-Quellcode:
function AppendRow(sg: TStringGrid; r: TStrings): TStrings;
begin
with sg do
begin
RowCount := Succ(Tag);
Result := Rows[Tag];
Result.Assign(r);
Tag := RowCount;
end;
end;
procedure CopyRowsContaining(sg, sgResult: TStringGrid; search: string);
var
i: Integer;
begin
ClearGrid(sgResult);
with sg do
for i := FixedRows to Pred(RowCount) do
if AnsiContainsText(Rows[i].Text, search) then
AppendRow(sgResult, Rows[i]).Objects[0] := Pointer(i);
end;
Freundliche Grüße