Stringgrid: Ganze Zeilen mit der Maus verschieben

[Sir Rufo]

Zitat von dsjena:

Delphi-Quellcode:

procedure Tplayer_gui.playgridDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  DestCol, DestRow: Integer;
begin
  playgrid.MouseToCell(X, Y, DestCol, DestRow); // convert mouse coord.
  playgrid.Cells[DestCol, DestRow] := playgrid.Cells[SourceCol, SourceRow];
  if (SourceCol <> DestCol) or (SourceRow <> DestRow) then
    playgrid.Cells[SourceCol, SourceRow] := '';
end;

Aber da hast Du doch schon alles fertig .... alle Informationen sind da ...

Delphi-Quellcode:

procedure Tplayer_gui.playgridDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  DestCol, DestRow: Integer;
begin
  playgrid.MouseToCell(X, Y, DestCol, DestRow); // convert mouse coord.
  for IdxCol := 0 to playgrid.ColCount - 1 do
  begin
    playgrid.Cells[IdxCol, DestRow] := playgrid.Cells[IdxCol, SourceRow];
    if (SourceRow <> DestRow) then
      playgrid.Cells[IdxCol, SourceRow] := '';
  end;
end;

Also anstatt für eine Spalte für alle Spalten ...

cu

Oliver