Delphi复制与粘贴操作

 

复制操作:

先选择后操作

edt1.SelectAll;
edt1.CopyToClipboard;

粘贴:

edt1.SelectAll;　　　　//如果不选择的话,会变成插入

edt1.PasteFromClipboard ;

 

也可以引用Vcl.Clipbrd

复制:

Clipboard.AsText :=edt2.Text ;

粘贴与复制相反

edt2.Text :=Clipboard.AsText ;