请教cxgrid中粘贴怎么实现 请教cxgrid中粘贴怎么实现,复制的方法是cxGrid1DBTableView1.CopyToClipboard(false);,想知道粘贴的方法 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 (来源于盒子http://bbs.2ccc.com/topic.asp?topicid=275816)1、uses clipbrd;2、复制procedure TForm1.cxButton1Click(Sender: TObject);varp1,p2:integer;p3:string;beginp1:=cxGrid5DBTableView1.Controller.FocusedRowIndex;p2:=cxGrid5DBTableView1.Controller.FocusedColumnIndex;p3:=cxGrid5DBTableView1.DataController.Values[p1,p2];showmessage(inttostr(p1)+','+inttostr(p2)+','+p3);clipboard.AsText:=p3;3.粘贴procedure TForm1.cxButton1Click(Sender: TObject);beginkeybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);keybd_event(ord('C'), MapVirtualKey(ord('C'), 0), 0, 0);keybd_event(ord('C'), MapVirtualKey(ord('C'), 0), KEYEVENTF_KEYUP, 0);keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP,0); end; Ctrl + V 也不错啊。 ctrl+v肯定可以 但是只能粘贴一个单元格的内容 我要的是粘贴多个的 我知道的方式是,根據選擇的項目,去操作dataset,來達到復制任意選擇項的目的.... 在Form上,如果判断同时按下了Ctrl+k 弄了个多论坛搜索,欢迎测试,呵呵 关于一个数据比较问题? 如何屏蔽窗口右上方的按钮?求救!在线等! 终于升到四个三角了,高兴!散分 菜鸟问题:Tag是什么属性? 如何在单击DBGrid的某个单元格时,让这个单元格显示为一个下拉框或者单选框? 紧急求救! 寻找合格的深圳本地程序员(最好是自由程序员) 如何编程序实现在一个已存在的IE窗口中打开一个url,在另一个窗口打开又该如何写? delphi怎么了 delphi面向对象编程问题
1、uses clipbrd;
2、复制
procedure TForm1.cxButton1Click(Sender: TObject);
var
p1,p2:integer;
p3:string;
begin
p1:=cxGrid5DBTableView1.Controller.FocusedRowIndex;
p2:=cxGrid5DBTableView1.Controller.FocusedColumnIndex;
p3:=cxGrid5DBTableView1.DataController.Values[p1,p2];
showmessage(inttostr(p1)+','+inttostr(p2)+','+p3);
clipboard.AsText:=p3;
3.粘贴
procedure TForm1.cxButton1Click(Sender: TObject);
begin
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord('C'), MapVirtualKey(ord('C'), 0), 0, 0);
keybd_event(ord('C'), MapVirtualKey(ord('C'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP,0);
end;