Tja, manchmal gehts so einfach.... ->
Delphi-Quellcode:
var i: Integer;
dest, src: TMyDBGrid;
begin
if Sender=dbgBildeGroup then
begin
dest:=dbgBildeGroup2;
src:=dbgBildeGroup;
end
else
begin
dest:=dbgBildeGroup;
src:=dbgBildeGroup2;
end;
dest.SelectedRows.Clear;
for i:=0 to (src.selectedRows.count-1) do
begin
dest.DataSource.DataSet.GotoBookmark(pointer(src.SelectedRows.Items[i]));
dest.SelectedRows.CurrentRowSelected:=True;
end;
end;
Problem gelöst!
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]