TTreeView里面没有CopyToClipboard命令,但是TEdit有的,所以用下面这种方法来这种一下
在界面上放置一个Edit设置成不可见的,代码部分这么来写...
//////////////////////////////////////////////////////////////////////////////
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if TreeView1.Selected<>nil then
begin
edit1.Text:=TreeView1.Selected.Text;
edit1.SetFocus;
edit1.SelectAll;
edit1.CopyToClipboard;
//edit1.CutToClipboard;
//TreeView1.Selected.Delete;
//后面这两句用来模拟剪切
end;
end;