【结】怎么实现跟XP系统的复制剪切粘贴功能?

shangxy · 发表于 2009-11-13 15:06:05

NameSpace: Business.System ClassDelcare: Business.System.Clipbrd
--------------------------------------------------------------------------------
static function Clipboard: TClipboard;

毁灭代码 · 发表于 2009-11-13 15:21:23

OK 解决了~
谢谢 shangxy 和 zklbx的帮忙
顺便贴下代码吧
uses Business.System.Clipbrd
implementation
fz:string;//右键的复制变量
procedure TMainForm.N1Click(Sender: TObject);//复制
begin
fz := DataGrid1.DataSource.DataSet.FieldByName(DataGrid1.FocusedField.FieldName).AsString;
Clipboard.SetTextBuf(PChar(fz));
end;

shangxy · 发表于 2009-11-13 15:46:15

fz := DataGrid1.DataSource.DataSet.FieldByName(DataGrid1.FocusedField.FieldName).AsString;
换成：
DataGrid1.FocusedField.AsString就可以了吧？

毁灭代码 · 发表于 2009-11-13 17:42:26

最初由 shangxy 发布
[B]fz := DataGrid1.DataSource.DataSet.FieldByName(DataGrid1.FocusedField.FieldName).AsString;
换成：
DataGrid1.FocusedField.AsString就可以了吧？ [/B]

恩
这也行~优化一下代码~呵呵
判断粘贴板里面的内容是不是文本
if ClipBoard.HasFormat(CF_TEXT) then
我这样写它怎么不认CF_TEXT?

atiger · 发表于 2009-11-14 11:15:18

是因为你没有引用单元，在use 那里引用 Borland.Delphi.Windows
当然也可以直接这样写Borland.Delphi.Windows.CF_TEXT

类似这样的东东可以查一下delphi 看看在哪个单元下，引用一下或者写全了就可以了

毁灭代码 · 发表于 2009-11-16 09:27:47

最初由 atiger 发布
[B]是因为你没有引用单元，在use 那里引用 Borland.Delphi.Windows
当然也可以直接这样写Borland.Delphi.Windows.CF_TEXT

类似这样的东东可以查一下delphi 看看在哪个单元..

以下省略...... [/B]

问题解决了~

现在我想用快捷键复制相当于 Ctrl +C

if  (key =17) and (key =67)  then // 17 为 CTRL键 67 为C 键
  begin
N1Click(self); //复制
  end;
是这样写吗? 代码写在DataGrid1KeyDown 没效果要写在哪里才实现呢? 望赐教

atiger · 发表于 2009-11-16 10:48:20

http://bbs.justep.com/forum.php?mod=viewthread&tid=23898

毁灭代码 · 发表于 2009-11-16 11:38:59

OK~
解决完了~
谢谢了~结贴吧

atiger · 发表于 2009-11-16 12:49:06

不客气，请楼主抽空把你实现的代码都共享一下吧

		自动登录	找回密码
密码			立即注册

【结】怎么实现跟XP系统的复制 剪切 粘贴功能?

【结】怎么实现跟XP系统的复制剪切粘贴功能?