三给ActiveForm添加属性

最新推荐文章于 2021-03-10 15:00:21 发布

weixin_33775572

最新推荐文章于 2021-03-10 15:00:21 发布

阅读量139

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/zhusd/archive/2010/05/16/1736541.html

本文详细介绍了如何在Delphi7中创建一个ActiveX控件，包括添加属性、方法、修改代码以及将控件嵌入到HTML页面中展示的方法。通过实际操作演示，帮助开发者掌握创建ActiveX控件的基本流程。

在ActiveForm工程中,选择菜单 View->Type Library,在 IAFHello上点鼠标右键,点菜单New->property

增加一个新的属性,我们设置属性的name为name,Type为BSTR,输入完成后,点刷新

Delphi会在unit AFHelloImpl1;中为我们增加两个方法

function Get_name: WideString; safecall;
procedure Set_name(const Value: WideString); safecall;

我们在private域中增加一个变量

Fname:WideString;

然后在Get_name和Set_name方法中写代码

function TAFHello.Get_name: WideString;
begin
Result := Fname;
end;

procedure TAFHello.Set_name(const Value: WideString);
begin
Fname := Value;
end;

修改btnHello的代码为:

procedure TAFHello.btnHelloClick(Sender: TObject);
begin
ShowMessage(Fname);
end;

对工程进行编译,然后在html文件中对ActvieForm的属性进行赋值

<HTML>
<H1> Delphi 7 ActiveX Test Page </H1><p>
You should see your Delphi 7 forms or controls embedded in the form below.
<HR><center><P>
<OBJECT
   classid="clsid:326812BB-4215-4C44-8E4F-96377AB92FFE"
   codebase="./AFHelloProj1.ocx#version=1,0,0,2"
   width=350
   height=250
   align=center
   hspace=0
   vspace=0
>
<PARAM NAME="name" VALUE="朱颂东">
</OBJECT>
</HTML>

保存html文件后,在浏览器中打开html文件,看看效果怎么样

转载于:https://www.cnblogs.com/zhusd/archive/2010/05/16/1736541.html

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。