procedure TForm1.Button1Click(Sender: TObject); //R
begin
//Clipboard.Open;
Richedit1.Lines.Add(Clipboard.AsText);
//Clipboard.Close;
end;
---------------------------------------
清除:
procedure TForm1.Button3Click(Sender: TObject); //C
begin
Clipboard.Clear;
end;
------------------------------------------------------------
写:
procedure TForm1.Button2Click(Sender: TObject); //W
var szstr:string;
begin
szstr:='http://hi.baidu.com/trojan007';
Clipboard.AsText:=szstr;
end;