StringGrid cellen Inhalt to Clipboard

[SaFu]

Mosche

kann mir jemand mal einen Ansatz geben wie ich eine makierte Zelle aus dem StrinGrid Kopieren und wieder in eine andere einfügen kann.

Gruß Sascha

[DeddyH]

Kannst Du den Text nicht einfach zuweisen?StringGrid.Cells[1,1] := StringGrid.Cells[2,2]; Ungetestet, aber müsste doch gehen.

[FAlter]

Hi,

ich glaube, er meint die Zwischenablage.

IIRC:

Delphi-Quellcode:

uses
  Clipbrd;

Clipboard.AsText := StringGrid.Cells[1, 2];

StringGrid.Cells[2, 1] := Clipboard.AsText;

Ist jetzt aber nicht überprüft.

Mfg
FAlter

[DeddyH]

Aber wieso soll das unbedingt über das Clipboard gemacht werden, wenn es auch ohne geht?

[SaFu]

Hab es jetzt mal so versucht aber geht irgendwie nicht

Delphi-Quellcode:

  if (ssCtrl in Shift)  and (Key = Ord('C')) then
  begin
    sKopieren:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
  end;

   if (ssCtrl in Shift)  and (Key = Ord('V')) then
  begin
     sEinfuegen:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
  end;

[DeddyH]

Delphi-Quellcode:

if (ssCtrl in Shift)  and (Key = Ord('C')) then
  begin
    sKopieren:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
  end;

   if (ssCtrl in Shift)  and (Key = Ord('V')) then
  begin
     StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] := sKopieren;
  end;

Macht so in meinen Augen mehr Sinn.

[Die Muhkuh]

Sollte das nicht so aussehen:

Delphi-Quellcode:

if (ssCtrl in Shift)  and (Key = Ord('C')) then
  begin
    sKopieren:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
  end;

   if (ssCtrl in Shift)  and (Key = Ord('V')) then
  begin
    StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] := sKopieren;
  end;

[edit]Verdammt! Heute isser schnell der Junge[/edit]

[DeddyH]

Ha, schneller

[Die Muhkuh]

Heute Powerfrühstück gehabt?

[SaFu]

Ja das macht mehr sinn und dann gehts auch danke