在dhtmledit中如何实现ctrl+c,ctrl+v操作(100分)

  • 主题发起人 主题发起人 吴晓勇
  • 开始时间 开始时间

吴晓勇

Unregistered / Unconfirmed
GUEST, unregistred user!
在dhtmledit的sdk中介绍该控件支持ctrl+c,ctrl+v操作的,但是我在delphi
中使用该控件(属性均缺省)时却不支持,求教要如何设置该控件?
 
用LoadDocument方法调入一篇文章后,就支持了。
 
好像不行。
 
看来直接按是不行了,只有通过按钮或者菜单来实现。
procedure TForm1.CutExecute(Sender: TObject);
var
i:OleVariant;
begin
DHTMLEdit1.ExecCommand(DECMD_CUT,OLECMDEXECOPT_DODEFAULT,i)
end;

procedure TForm1.CopyExecute(Sender: TObject);
var
i:OleVariant;
begin
DHTMLEdit1.ExecCommand(DECMD_COPY,OLECMDEXECOPT_DODEFAULT,i)
end;

procedure TForm1.PasetExecute(Sender: TObject);
var
i:OleVariant;
begin
DHTMLEdit1.ExecCommand(DECMD_PASTE,OLECMDEXECOPT_DODEFAULT,i)
end;
 
以前我编写的一个使用该控件的应用程序是支持该功能的,现在在使用该控件编另一个时
却不支持,跟踪原来的程序也找不到有什么不同的设置,而且使用
DHTMLEdit1.ExecCommand(DECMD_CUT,OLECMDEXECOPT_DODEFAULT,i)
等会报错.
 
看看这个吧:
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=284904

我和luket在里面讨论半天了。
 
那个贴子太复杂,只要这个就OK:

uses ActiveX
...


initialization
OleInitialize(nil);
finalization
OleUnInitialize;
 
多人接受答案了。
 
后退
顶部