如何用Delphi编写ActiveX控件

如何用Delphi编写ActiveX控件

首先单击delphi7之后会打开一个Project1


关闭此工程




新建工程


新建Active Form窗体




添加一个Button按钮，添加事件
procedure TActiveFormX.Button1Click(Sender: TObject);
begin
  showmessage('This is ActiveX test!');
end;


工程文件目录


如果以下发布选项是灰色时
Web Deployment Options
Web Deploy


再创建一个新窗体
File->New->Other-ActiveX->Active Form


此时的Web Deployment选项已经可以使用


设置发布选项


点击Web deploy发布后的工程目录位置以及相关文件


在运行中执行或做成批处理*.bat执行
注册ocx
RegSvr32 /s ActiveFormProj1.ocx
注销ocx
RegSvr32 /u ActiveFormProj1.ocx

运行测试页面


ocx控件被阻止


允许控件运行，请点击是。


控件显示异常


当页面不能正常显示时，请注释以下License(GUID)

procedure TActiveFormX.Button1Click(Sender: TObject);
begin
  showmessage('This is ActiveX test!');
end;


initialization
  TActiveFormFactory.Create(
    ComServer,
    TActiveFormControl,
    TActiveFormX,
    Class_ActiveFormX,
    1,
    '{F3B4BC72-4399-4F8B-941C-0D5C6099DFCA}',
    OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
    tmApartment);
end.

并换成'',

procedure TActiveFormX.Button1Click(Sender: TObject);
begin
  showmessage('This is ActiveX test!');
end;


initialization
  TActiveFormFactory.Create(
    ComServer,
    TActiveFormControl,
    TActiveFormX,
    Class_ActiveFormX,
    1,
    '',
    //'{F3B4BC72-4399-4F8B-941C-0D5C6099DFCA}',
    OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
    tmApartment);
end.




编译工程并重新发布



ActiveX控件已经加载并正常显示





ActiveX控件测试成功！







转载请务必保留以下信息

作者主页：http://blog.csdn.net/cadenza7