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?

Delphi-Quellcode:

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 :tongue:

[Die Muhkuh]

Heute Powerfrühstück gehabt? :tongue:

[SaFu]

:wall:

Ja das macht mehr sinn und dann gehts auch danke

[FAlter]

Hi,

ich dachte du willst die Zwischenablage nehmen?

Delphi-Quellcode:

uses
  ClipBrd;

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

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

Dann kannst du auch im Firefox kopieren und in deinem StringGrid einfügen oder umgekehrt.

Ich habe inzwischen nachgeguckt, es heißt wirklich so, dürfte jetzt also funktionieren.

Mfg
FAlter

[SaFu]

ja habe ja auch diese Funktion genommen bei deiner Lösung ist mir der Fehler von mir dann auch aufgefallen.
Nur jetzt habe ich gemerckt das, das bei mir nicht so einfach geht da ich ein spezielles StringGrid habe.

Also geht keins von beiden aber jetzt habe ich es verstanden und muss versuchen wie ich es jetzt hinbekomme

[DeddyH]

Ich würde das übrigens per case machen.

Delphi-Quellcode:

if (ssCtrl in Shift) then
  case Key of
    Ord('C'): ...
    Ord('V'): ...
    Ord('X'): ...
  end;