>>>maoke
我在 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1329620 看到了你的帖子.
我现在也需要OCX的范例.
var
aHTMLEDITCMDID;
b:OLECMDEXECOPT;
c:OleVariant;
begin
a:=DECMD_COPY;
b:=OLECMDEXECOPT_DODEFAULT;
if Edit.QueryStatus(a)=DECMDF_ENABLED then
Edit.ExecCommand(a,b);
就出错.