R
Richling1975
Unregistered / Unconfirmed
GUEST, unregistred user!
各位:
我是一个DELPHI的生手, 请各位帮个忙.
在用NOTE做文件仓库时因为BOSS要求文件只只能让用户查看,不能打印和
存副本在HARDDISK上,所以我使用OLEContainer写了一个OCX, 用于显示WORD,
EXCEL 等文件. 这个控件可以屏弊SAVE, SAVE AS , PRINT , 但是不能限制
用户COPY, 用户可以先在我的控件中SELECT -> COPY , 然后另开一个WORD文
件, 将之PASTE出去.
我想了一个办法, 就是当用户离开我的程序时清空剪贴板, 我的程序如下:
procedure TOLEContainerX.ActiveFormCreate(Sender: TObject);
begin
//设APPLICATION的OnDeactivate事件
Application.OnDeactivate := AppDeactivate;
end;
procedure TOLEContainerX.AppDeactivate(Sender: TObject);
begin
//调用WIN API 清除CLIPBOARD
//打开
OpenClipboard(OleContainer1.Handle);
//清除
EmptyClipboard ;
//关闭
CloseClipboard();
end;
当我做成一个EXE文件时, 这个方法是OK的 , 但是当我做成OCX然后EMBED到
NOTES的FORM中时, APPLICATION.ONDEACTIVATE事件就不被调用了, 请问各位GGJJ
们, 我该如何做才能实现此功能.
如果有其它的思路也请不吝赐教. 拜托!拜托!
还有, 请问那里弄可以DOWN到李维的Delphi5.XADO_MTS_COM+高级程序设计篇?
我找了N天了,只DOWN到前四章.
在线等待中..........
我是一个DELPHI的生手, 请各位帮个忙.
在用NOTE做文件仓库时因为BOSS要求文件只只能让用户查看,不能打印和
存副本在HARDDISK上,所以我使用OLEContainer写了一个OCX, 用于显示WORD,
EXCEL 等文件. 这个控件可以屏弊SAVE, SAVE AS , PRINT , 但是不能限制
用户COPY, 用户可以先在我的控件中SELECT -> COPY , 然后另开一个WORD文
件, 将之PASTE出去.
我想了一个办法, 就是当用户离开我的程序时清空剪贴板, 我的程序如下:
procedure TOLEContainerX.ActiveFormCreate(Sender: TObject);
begin
//设APPLICATION的OnDeactivate事件
Application.OnDeactivate := AppDeactivate;
end;
procedure TOLEContainerX.AppDeactivate(Sender: TObject);
begin
//调用WIN API 清除CLIPBOARD
//打开
OpenClipboard(OleContainer1.Handle);
//清除
EmptyClipboard ;
//关闭
CloseClipboard();
end;
当我做成一个EXE文件时, 这个方法是OK的 , 但是当我做成OCX然后EMBED到
NOTES的FORM中时, APPLICATION.ONDEACTIVATE事件就不被调用了, 请问各位GGJJ
们, 我该如何做才能实现此功能.
如果有其它的思路也请不吝赐教. 拜托!拜托!
还有, 请问那里弄可以DOWN到李维的Delphi5.XADO_MTS_COM+高级程序设计篇?
我找了N天了,只DOWN到前四章.
在线等待中..........