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

shangxy

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

毁灭代码

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

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

毁灭代码

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

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

atiger

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

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

毁灭代码

最初由 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

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

毁灭代码

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

atiger

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