Delphi操作剪贴板
uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.AsText := Text;
ShowMessage(Clipboard.AsText); {Form1}
end;
--------------------uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.AsText := Text;
ShowMessage(Clipboard.AsText); {Form1}
end;
--------------------