怎么把字符串的值放到剪粘板中？？

Question

Clipboard.Clear;
  Clipboard.AsText:= String;  //把String中的内容放到剪切板

Answer 1

TEdit(Screen.ActiveControl).CopyToClipBoard;

Answer 2

加入uses
  clipbrd
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Clipboard.HasFormat(CF_TEXT) then
  begin
   Clipboard.Clear;
   Clipboard.AsText:=Edit1.Text;
  end;
end;

Answer 3

加入uses
  clipbrd
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Clipboard.HasFormat(CF_TEXT) then
     Clipboard.Clear;
   Clipboard.AsText:=Edit1.Text;
 end;

Answer 4

form1.edit1.selectall;
form1.edit1.copytoclipboard;
如果是listbox则
form3.memo1.Text:=form3.ListBox1.Items.Text;
form3.Memo1.SelectAll ;
form3.Memo1.CopyToClipboard ;

Answer 5

uses  clipbrd;clipboard.Clear;
    clipboard.AsText:='sssss';
    memo1.CopyToClipboard ;
    edit1.CopyToClipboard   ;