delphi 2009 ActiveX控件 常见问题

最近在用delphi将一个图形控件以activex方式做成可以在IE上运行的OCX,遇到了些问题,在此备忘一下

一 OnDestroy事件运行不了!释放问题通常我们会在窗口的OnDestroy里面写程序中的释放代码,但ActiveForm，当窗口销毁时确不会调用OnDestroy事件

解决方法:重载DoDestroy函数，如下：

procedure DoDestroy; override;//释放的代 写在这里面

二　ActiveForm与普通Form的传参问题

解决方法一：

procedure TActiveFormX.Button1Click(Sender: TObject);
var
f: TForm1;
begin
f := TForm1.Create(self);//注意传递SELF，作为FORM1的OWNER
try
f.ShowModal;
finally
f.Free;
end;
end;
Form1中的调用方法：

procedure TForm1.Button1Click(Sender: TObject);
begin
if (self.Owner) is TActiveFormX then
((Self.Owner) as TActiveFormX).Button1.Caption := 'changed!'
end;

解决方法二：

在Form1中定义个属性
property ButtonofActiveForm:TButton read FButtonofActiveForm write FButtonofActiveForm;

在ActiveForm中，调用Form1之前：
Form1.ButtonofActiveForm:=ActiveForm.Button1
Form1.ShowModal;
以后对ActiveForm的Button1的操作都只需要对存储属性的指针
FButtonofActiveForm 进行访问即可。