Memo in Zwischenablage kopieren?

[theNeo]

Hallo!

Ich will ein komplettes Memofeld in die Zwischenablage kopieren, habs mit memo1.copytoclipboard versucht, leider funktionierte das nicht. Brauch ich dafür eine extra Przedur die das macht?

[Matze]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
end;

[Jelly]

Zitat:

Zitat von Matze

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
end;

oder, um nicht alles markieren zu müssen, und nachher gegebenfalls wieder den alten Zustand herzustellen:

Delphi-Quellcode:

uses
 ClipBrd ;

procedure Memokopieren ;
var
  clp : TClipboard ;
begin
  clp := TClipBoard.create ;
  clp.AsStext := memo1.lines.text :
  clp.free ;
end ;