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 进行访问即可。