f1book问题:如何实现单元格内容的复制、粘贴、剪切。谢谢(100分)

  • 主题发起人 主题发起人 ld999
  • 开始时间 开始时间
L

ld999

Unregistered / Unconfirmed
GUEST, unregistred user!
我正常使用Ctrl+C与Ctrl+V来复制和粘贴,却将在windows中的系统剪贴板上的内容复制进去了,请大家帮忙解决,如何才能在f1book中实现单元格的正常复制(比如我选中几个单元格,然后点鼠标右键出现快捷菜单,然后选择复制,现在情部况是不能出现快捷菜单)。
 
教你一个最简单的而且绝对实用的方法:
运行时[blue],[h1]双击右键[/h1][/blue][:D][:D][:D]
 
出现快捷菜单:把它的PopupMenu制定为某个TPopupMenu就行了啊
不过此时就不能用我上面所说的方法了
 
源码空间上你找一个配件仓库管理系统,里面的报表就是用f1book做的。
 
双击后并不能实现呀,请进一步指教
 
双击右键,没有反应,能否更明确些。谢谢
 
好像要先放一个ole容器。然后调用editcopy方法。明天上班贴给你。
 
TO:yanglibo
谢谢,不胜感激.
 
首先,在form上添加一个TOleContainer,visible 设为false;
添加TPopupMenu named pp,添加mn_Copy 、mn_Paste菜单添加F1book6 ,将popupmenu 属性设为 pp;

mn_Copy 、mn_Paste在相应的是Click事件中
调用 F1book61.EditCopy 和 F1book61.EditPaste 等方法进行剪贴板操作。




 
TO:yanglibo
谢谢,今天经过实验,现在已经实现了复制和粘贴的操作,但是我并没有在form上添加一个TOleContainer,
我是这样做的,你帮忙再看一下是否可行.
我是用delphi6与f1book6平台
1、在form上增加PopupMenu,增加两个菜单项,“复制”和“粘贴”
菜单代码如下:
procedure TForm1.N1Click(Sender: TObject);//复制代码
begin
f1book61.GetCellFormat;
f1book61.EditCopy;
end;

procedure TForm1.N2Click(Sender: TObject);//粘贴代码
begin
f1book61.EditPaste;
end;

功能是实现了,我想问两个问题
1、如果实现了,我是否不需在form上添加一个TOleContainer,如果不放TOleContainer,是否有其它影响。
2、我用了f1book61.FixedCol:=1;
f1book61.FixedCols:=2;命令对表格前两列做了锁定。
出现以下问题:当我用鼠标点锁定列来选定了某一行后,再进行复制和粘贴,出现一提示,可能是锁定的单元格不让复制,能否解决不出现提示而只复制除锁定列之外的列内容。
谢谢。
 
1、其实不放TOleContainer 是可以的,只要是引用OleCtnrs 单元。因为这个单元的初始化
部分注册了剪接板的格式。如果没有引用这个单元就会出现无法打开剪接板的错误。 添加
TOleContainer 的目的也是为了引用OleCtnrs 单元。如果应用中已经引用了OleCtnrs ,就没有必要添加一个TOleContainer 。

2、自己定义变量保存选定的非锁定区域的位置,利用CopyRange来复制
 

Similar threads

D
回复
0
查看
882
DelphiTeacher的专栏
D
D
回复
0
查看
944
DelphiTeacher的专栏
D
D
回复
0
查看
959
DelphiTeacher的专栏
D
D
回复
0
查看
786
DelphiTeacher的专栏
D
后退
顶部