Mehrer Zellen vom Stringgrid kopieren

[tom_po]

super marabu, es klappt mit der maus, musste nur noch bei stringgrid die 1 anhängen bei mir:

Delphi-Quellcode:

procedure TDemoForm.StringGridMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown := true;
  with StringGrid[b]1[/b] do
    MouseSelection.TopLeft := MouseCoord(X, Y);
end;

procedure TDemoForm.StringGridMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if MouseDown then
    with StringGrid[b]1[/b] do
    begin
      MouseSelection.BottomRight := MouseCoord(X, Y);
      Selection := MouseSelection;
    end;
end;

procedure TDemoForm.StringGridMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown := false;
end;

jetzt fehlt nur noch, dass man mit der rechten maustaste das copy und einfügen machen könnte.
aber das ist wohl mit delphi nicht möglich, oder??