ActiveForm难题

Question

http://www.drbob42.com/activex/debugx.htm有一篇文章，教你怎样调试ACTIVEXFORM。

Answer 1

Index的问题查出来了，现在我想知道IExplore刷新时ActiveForm会触发什麽事件

Answer 2

猜想是重新下载ocx或者是从缓存中重新执行ocx吧，我现在在使用过程中也会碰到这种情况，但是在处理数据的过程中就没有试过

Answer 3

我发现在我刷新页面时ActiveForm并没有触发onDestroy,结果我无法释放资源因而引起内部错误

Answer 4

To cobi(小新国际):猜想是正确的，如果在控件的析构方法里加入类似showmessage的函数，你会看到该函数被执行。IE刷新时，其实是重新装载页面，要么从本地缓存中装载，要么从服务器装载。
To Azz1():ActiveForm的onDestroy事件在控件内部是不会触发的，在ActiveForm有这样一段代码：
TActiveFormX = class(TActiveForm, IActiveFormX)
  private
    { Private declarations }
    FEvents: IActiveFormXEvents;
    procedure ActivateEvent(Sender: TObject);
    procedure ClickEvent(Sender: TObject);
    procedure CreateEvent(Sender: TObject);
    procedure DblClickEvent(Sender: TObject);
    procedure DeactivateEvent(Sender: TObject);
    procedure DestroyEvent(Sender: TObject);
    procedure KeyPressEvent(Sender: TObject; var Key: Char);
    procedure PaintEvent(Sender: TObject);
  protected
   ……procedure TActiveFormX.Initialize;
begin
  inherited Initialize;
  OnActivate := ActivateEvent;
  OnClick := ClickEvent;
  OnCreate := CreateEvent;
  OnDblClick := DblClickEvent;
  OnDeactivate := DeactivateEvent;
  OnDestroy := DestroyEvent;
  OnKeyPress := KeyPressEvent;
  OnPaint := PaintEvent;
end;
注意： ActiveForm的事件OnDestroy 已被赋值，当Destroy发生时，会执行DestroyEvent中
的代码，即会触发脚本中的OnDestroy事件，具体一点就是，如果你在脚本中写了调用的ActiveForm的OnDestroy事件，则它会执行。如果你想在OnDestroy中做自己的处理工作，可如下处理：
procedure TActiveFormX.DestroyEvent(Sender: TObject);
begin
  //这里加入自定义处理过程
  if FEvents <> nil then FEvents.OnDestroy;
  //或这里加入自定义处理过程
end;
或重载ActiveForm的析构方法。

Answer 5

我试过重载ActiveForm的析构方法。 但是不奏效，现在重载方法
BeforeDestruction是可以的

Answer 6

To Azz1():
如果你重载了ActiveForm的析构方法，那么，当重新装载页面或刷新页面（相当页重新装载）时，IE会释放ActiveForm，ActiveForm必然会调用析构方法，如果析构方法不调用，岂不是造成内存泄露：）。不知你的调用是如何进行的，有兴趣的话可以交流一下。

Answer 7

好啊好啊：）
为了让ActiveForm在重新装载页面或刷新页面时调用我的代码，我试了好多，
包括 FormClose, Destructor, DeInitialize, 都不成，只有BeforeDestructionDelphi5

Answer 8

你是如何重载ActiveForm的Destructor方法的？
如下程序，Destrutor中的方法可以执行：
unit ActiveFormImpl1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ActiveX, AxCtrls, ActiveFormProj1_TLB, StdVcl;type
  TActiveFormX = class(TActiveForm, IActiveFormX)
  private
    { Private declarations }
    FEvents: IActiveFormXEvents;
    procedure ActivateEvent(Sender: TObject);
    procedure ClickEvent(Sender: TObject);
    procedure CreateEvent(Sender: TObject);
    procedure DblClickEvent(Sender: TObject);
    procedure DeactivateEvent(Sender: TObject);
    procedure DestroyEvent(Sender: TObject);
    procedure KeyPressEvent(Sender: TObject; var Key: Char);
    procedure PaintEvent(Sender: TObject);
  protected
    { Protected declarations }
    procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;
    procedure EventSinkChanged(const EventSink: IUnknown); override;
    function Get_Active: WordBool; safecall;
    function Get_AutoScroll: WordBool; safecall;
    function Get_AutoSize: WordBool; safecall;
    function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall;
    function Get_Caption: WideString; safecall;
    function Get_Color: OLE_COLOR; safecall;
    function Get_Cursor: Smallint; safecall;
    function Get_DoubleBuffered: WordBool; safecall;
    function Get_DropTarget: WordBool; safecall;
    function Get_Enabled: WordBool; safecall;
    function Get_Font: IFontDisp; safecall;
    function Get_HelpFile: WideString; safecall;
    function Get_KeyPreview: WordBool; safecall;
    function Get_PixelsPerInch: Integer; safecall;
    function Get_PrintScale: TxPrintScale; safecall;
    function Get_Scaled: WordBool; safecall;
    function Get_Visible: WordBool; safecall;
    function Get_VisibleDockClientCount: Integer; safecall;
    procedure _Set_Font(const Value: IFontDisp); safecall;
    procedure Set_AutoScroll(Value: WordBool); safecall;
    procedure Set_AutoSize(Value: WordBool); safecall;
    procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall;
    procedure Set_Caption(const Value: WideString); safecall;
    procedure Set_Color(Value: OLE_COLOR); safecall;
    procedure Set_Cursor(Value: Smallint); safecall;
    procedure Set_DoubleBuffered(Value: WordBool); safecall;
    procedure Set_DropTarget(Value: WordBool); safecall;
    procedure Set_Enabled(Value: WordBool); safecall;
    procedure Set_Font(var Value: IFontDisp); safecall;
    procedure Set_HelpFile(const Value: WideString); safecall;
    procedure Set_KeyPreview(Value: WordBool); safecall;
    procedure Set_PixelsPerInch(Value: Integer); safecall;
    procedure Set_PrintScale(Value: TxPrintScale); safecall;
    procedure Set_Scaled(Value: WordBool); safecall;
    procedure Set_Visible(Value: WordBool); safecall;
  public
    { Public declarations }
    procedure Initialize; override;
    destructor Destroy();override;
  end;implementationuses ComObj, ComServ;{$R *.DFM}{ TActiveFormX }procedure TActiveFormX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
begin
  { Define property pages here.  Property pages are defined by calling
    DefinePropertyPage with the class id of the page.  For example,
      DefinePropertyPage(Class_ActiveFormXPage); }
end;procedure TActiveFormX.EventSinkChanged(const EventSink: IUnknown);
begin
  FEvents := EventSink as IActiveFormXEvents;
end;procedure TActiveFormX.Initialize;
begin
  inherited Initialize;
  OnActivate := ActivateEvent;
  OnClick := ClickEvent;
  OnCreate := CreateEvent;
  OnDblClick := DblClickEvent;
  OnDeactivate := DeactivateEvent;
  OnDestroy := DestroyEvent;
  OnKeyPress := KeyPressEvent;
  OnPaint := PaintEvent;
end;function TActiveFormX.Get_Active: WordBool;
begin
  Result := Active;
end;function TActiveFormX.Get_AutoScroll: WordBool;
begin
  Result := AutoScroll;
end;function TActiveFormX.Get_AutoSize: WordBool;
begin
  Result := AutoSize;
end;function TActiveFormX.Get_AxBorderStyle: TxActiveFormBorderStyle;
begin
  Result := Ord(AxBorderStyle);
end;function TActiveFormX.Get_Caption: WideString;
begin
  Result := WideString(Caption);
end;function TActiveFormX.Get_Color: OLE_COLOR;
begin
  Result := OLE_COLOR(Color);
end;function TActiveFormX.Get_Cursor: Smallint;
begin
  Result := Smallint(Cursor);
end;function TActiveFormX.Get_DoubleBuffered: WordBool;
begin
  Result := DoubleBuffered;
end;function TActiveFormX.Get_DropTarget: WordBool;
begin
  Result := DropTarget;
end;function TActiveFormX.Get_Enabled: WordBool;
begin
  Result := Enabled;
end;function TActiveFormX.Get_Font: IFontDisp;
begin
  GetOleFont(Font, Result);
end;function TActiveFormX.Get_HelpFile: WideString;
begin
  Result := WideString(HelpFile);
end;function TActiveFormX.Get_KeyPreview: WordBool;
begin
  Result := KeyPreview;
end;function TActiveFormX.Get_PixelsPerInch: Integer;
begin
  Result := PixelsPerInch;
end;function TActiveFormX.Get_PrintScale: TxPrintScale;
begin
  Result := Ord(PrintScale);
end;function TActiveFormX.Get_Scaled: WordBool;
begin
  Result := Scaled;
end;function TActiveFormX.Get_Visible: WordBool;
begin
  Result := Visible;
end;function TActiveFormX.Get_VisibleDockClientCount: Integer;
begin
  Result := VisibleDockClientCount;
end;procedure TActiveFormX._Set_Font(const Value: IFontDisp);
begin
  SetOleFont(Font, Value);
end;procedure TActiveFormX.ActivateEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnActivate;
end;procedure TActiveFormX.ClickEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnClick;
end;procedure TActiveFormX.CreateEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnCreate;
end;procedure TActiveFormX.DblClickEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnDblClick;
end;procedure TActiveFormX.DeactivateEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnDeactivate;
end;procedure TActiveFormX.DestroyEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnDestroy;
end;procedure TActiveFormX.KeyPressEvent(Sender: TObject; var Key: Char);
var
  TempKey: Smallint;
begin
  TempKey := Smallint(Key);
  if FEvents <> nil then FEvents.OnKeyPress(TempKey);
  Key := Char(TempKey);
end;procedure TActiveFormX.PaintEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnPaint;
end;procedure TActiveFormX.Set_AutoScroll(Value: WordBool);
begin
  AutoScroll := Value;
end;procedure TActiveFormX.Set_AutoSize(Value: WordBool);
begin
  AutoSize := Value;
end;procedure TActiveFormX.Set_AxBorderStyle(Value: TxActiveFormBorderStyle);
begin
  AxBorderStyle := TActiveFormBorderStyle(Value);
end;procedure TActiveFormX.Set_Caption(const Value: WideString);
begin
  Caption := TCaption(Value);
end;procedure TActiveFormX.Set_Color(Value: OLE_COLOR);
begin
  Color := TColor(Value);
end;procedure TActiveFormX.Set_Cursor(Value: Smallint);
begin
  Cursor := TCursor(Value);
end;procedure TActiveFormX.Set_DoubleBuffered(Value: WordBool);
begin
  DoubleBuffered := Value;
end;procedure TActiveFormX.Set_DropTarget(Value: WordBool);
begin
  DropTarget := Value;
end;procedure TActiveFormX.Set_Enabled(Value: WordBool);
begin
  Enabled := Value;
end;procedure TActiveFormX.Set_Font(var Value: IFontDisp);
begin
  SetOleFont(Font, Value);
end;procedure TActiveFormX.Set_HelpFile(const Value: WideString);
begin
  HelpFile := String(Value);
end;procedure TActiveFormX.Set_KeyPreview(Value: WordBool);
begin
  KeyPreview := Value;
end;procedure TActiveFormX.Set_PixelsPerInch(Value: Integer);
begin
  PixelsPerInch := Value;
end;procedure TActiveFormX.Set_PrintScale(Value: TxPrintScale);
begin
  PrintScale := TPrintScale(Value);
end;procedure TActiveFormX.Set_Scaled(Value: WordBool);
begin
  Scaled := Value;
end;procedure TActiveFormX.Set_Visible(Value: WordBool);
begin
  Visible := Value;
end;destructor TActiveFormX.Destroy;
begin
  inherited;
  showmessage('I am Destroy');
end;initialization
  TActiveFormFactory.Create(
    ComServer,
    TActiveFormControl,
    TActiveFormX,
    Class_ActiveFormX,
    1,
    '',
    OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
    tmApartment);
end.

Answer 9

是呀，是我搞错了, Destructor 是执行到的 :)

Answer 10

是呀，是我搞错了, Destructor 是执行到的 :)