delphi 剪切板变量_delphi clipbrd剪贴板的读写和清除功能

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;