Delphi 怎么复制文字>???
我想用Delphi做一个小窗体,里面放一几个按钮,点击按钮就可以把按钮上显示的文字复制到剪切板去~我只是个初学者,希望得到帮助!大哥回答者:jackalwin-经理四级3...
我想用Delphi做一个小窗体,里面放一几个按钮,点击按钮就可以把按钮上显示的文字复制到剪切板去~
我只是个初学者,希望得到帮助!
大哥回答者:jackalwin - 经理 四级 3-22 可不可心讲通俗点~` 展开
我只是个初学者,希望得到帮助!
大哥回答者:jackalwin - 经理 四级 3-22 可不可心讲通俗点~` 展开
2个回答
展开全部
memo1.CopyToClipboard;
/ Image1.CopyToClipboard
//Clipboard.Assign(Image1.Picture);
{if Clipboard.HasFormat(CF_PICTURE) then
DBImage1.PasteFromClipboard;
if Clipboard.HasFormat(CF_BITMAP) then
DBImage1.PasteFromClipboard;
}
clipboard.Assign(edit1);
edit1.CopyToClipboard;
//if Clipboard.HasFormat(CF_TEXT) then
// Edit1.PasteFromClipboard;
richedit1.selectall;
richedit1.copytoclipboard;
richedit1.cuttoclipboard;
edit1.pastefromclipboard;
***********************************************************
richedit1.selectall; //全选
richedit1.copytoclipboard; //复制到剪切板
richedit1.cuttoclipboard; //剪切到剪切板
edit1.pastefromclipboard; //把剪切板的东西拿出来
/ Image1.CopyToClipboard
//Clipboard.Assign(Image1.Picture);
{if Clipboard.HasFormat(CF_PICTURE) then
DBImage1.PasteFromClipboard;
if Clipboard.HasFormat(CF_BITMAP) then
DBImage1.PasteFromClipboard;
}
clipboard.Assign(edit1);
edit1.CopyToClipboard;
//if Clipboard.HasFormat(CF_TEXT) then
// Edit1.PasteFromClipboard;
richedit1.selectall;
richedit1.copytoclipboard;
richedit1.cuttoclipboard;
edit1.pastefromclipboard;
***********************************************************
richedit1.selectall; //全选
richedit1.copytoclipboard; //复制到剪切板
richedit1.cuttoclipboard; //剪切到剪切板
edit1.pastefromclipboard; //把剪切板的东西拿出来
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询