inhalt eines Stringgrids in die zwischenablage speichern

[remie]

Hallo möchte einen Markirten bereich aus einem String Grid Kopieren wie mach ich das ?

thx für die hilfe im vorraus

[TeronG]

Delphi-Quellcode:

uses Clipbrd;
var DeinClipboardHandle : TClipboard; // vor der ersten Verwendung mit 
                                      // DeinClipboardHandle := TClipboard.Create 
                                      // erzeugen 
    DeinText1,DeinText2 : String; 
begin 
  DeinText1 := 'BlaBlaBla' 
  DeinClipboardHandle.AsText := DeinText1; // Clipboard enthält jetzt "BlaBlaBla" 
  DeinText2 := DeinClipboardHandle.AsText; // DeinText2 ist jetzt gleich DeinText1 
end;

soviel zum Zwischenablagenteil .... :wink:

[remie]

OK will es mal ein bischen genauer Beschreiben *g*

WENN !!! das Programm läuft und man seine Daten in das Stringgrid geschmissen Hatt kann der User/Kunde ja mehrere Zellen Markiren bzw. Auswählen.
Ich möchte über ein PopUpMenue dem User die möglichkeit geben diesen Markierten Text in die Zwischenablage zu Kopieren damit er ihn via Exel oder änlichem weiter bearbeiten kann.

Habe abernoch keine Ahnung wie ich an diese Mehrfach auswahl heran komme hat da schonmal jemand was mit gemacht ?

[scp]

Nehmen wir an, du hast 6 Zellen markiert:

Code:

123    456    789
qwe    rtz    uio

Dann kannst du den Text so formatieren:

Delphi-Quellcode:

DeinClipboardHandle.AsText := '123' + #9 + '456' + #9 + '789' + #10 + 'qwe' + #9 + 'rtz' + #9 + 'uio';

Sprich: Die Zellen werden durch Tabulatoren getrennt, eine neue Zeile wird wie gewohnt mit #10 oder #13 oder einer Kombination beider begonnen. Damit dürfte z.B. Excel dann zurechtkommen.

[remie]

Ja so habe ich mir das auch gedacht, aber wie erkenne ich die mehrfach auswahl ?

[Thanatos81]

Schau dir mal die Selection Eigenschaft des TStringGrids an.

[TeronG]

Also:

das sollte helfen:

Delphi-Quellcode:

StringGrid1.Row                      {.col}
StringGrid1.Selection.BottomRight.Y  {.y}
StringGrid1.Selection.TopLeft.X      {.x}

2 for-schleifen und feadich :)


EDIT: Sorry @ Thanatos81 habich überlesen :/

[barf00s]

im übrigen brauch man nich extra nen clipboardhandle
uses
ClipBrd;

begin
ClipBoard.AsText := 'Foobar';
end;

tuts auch :)

[TeronG]

Zitat:

Zitat von barf00s

im übrigen brauch man nich extra nen clipboardhandle
uses
ClipBrd;

begin
ClipBoard.AsText := 'Foobar';
end;

tuts auch :)

aha cool ... man lernt nie aus :) ... hab grad geguckt ... ClipBoard.* macht:

Delphi-Quellcode:

var
  FClipboard: TClipboard;

function Clipboard: TClipboard;
begin
  if FClipboard = nil then
    FClipboard := TClipboard.Create;
  Result := FClipboard;
end;

[barf00s]

schimpft sich auch "Singleton"