Fra memo til Udklipsholder

det gør den automatisk

Man skal ikke selv markere men et tryk på en knap skal kopiere det hele :-)

Hvis du ikke mener at du skal trykke Ctrl+c i memo felter selv, men fange det markerede tekst så gør sådan her :

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

fra online hjælpen :

Copies the selected text in the edit control to the Clipboard in CF_TEXT format.

procedure CopyToClipboard;

Description

Use CopyToClipboard to replace the contents of the Clipboard with the selected text. CopyToClipbard does not clear the Clipboard if no text is selected. If no text is selected, CopyToClipboard does nothing.

Note:    Calling CopyToClipboard does the same thing as sending the edit control a WM_COPY message.

ja men knappen skal også markere alt inden den funktion udføres

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

årh for he.....