在0与1之间的博客

——C/C++,DELPHI, .NET

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

 

 

 

阅读更多
个人分类: ActiveX Delphi
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

delphi 2009 ActiveX控件 常见问题

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭