Question

Borland Developer Studio 2006，Delphi：

我有一个带有AllowInPlace = False的TOLEContainer对象。当外部编辑器关闭并更改我的OLE对象时，我必须在TOLeContainer中对此OLE对象执行某些操作。

问题是我无法抓住外部编辑器关闭的时刻。 OnDeactivate事件无效。

可能我应该更改TOLEContainer的源代码，自己添加这个事件，但我不知道它最适合它的地方。

你能建议一些方法吗？

Answer 1

一个不需要修改VCL源的简单示例;

uses
  .., activex;

type
  TForm1 = class(TForm, IAdviseSink)
    ..
    Button1: TButton;
    OleContainer1: TOleContainer;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    Connection: Longint;
    procedure CloseConnection;
    procedure OnDataChange(const formatetc: TFormatEtc; const stgmed: TStgMedium);
      stdcall;
    procedure OnViewChange(dwAspect: Longint; lindex: Longint);
      stdcall;
    procedure OnRename(const mk: IMoniker); stdcall;
    procedure OnSave; stdcall;
    procedure OnClose; stdcall;
  public
  end;

implementation

procedure TForm1.OnDataChange(const formatetc: TFormatEtc;
  const stgmed: TStgMedium);
begin
end;

procedure TForm1.OnRename(const mk: IMoniker);
begin
end;

procedure TForm1.OnSave;
begin
end;

procedure TForm1.OnViewChange(dwAspect, lindex: Integer);
begin
end;

procedure TForm1.OnClose;
begin
  ShowMessage('not editing anymore!');
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if OleContainer1.InsertObjectDialog then begin
    CloseConnection;
    OleContainer1.OleObjectInterface.Advise(IAdviseSink(Self), Connection);
  end;
end;

procedure TForm1.CloseConnection;
begin
  if Connection <> 0 then
    if OleContainer1.OleObjectInterface.Unadvise(Connection) = S_OK then
      Connection := 0;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CloseConnection;
end;

Answer 2

OLE对象调用IOleClientSite接口的OnShowWindow方法（由TOleContainer实现）。 fShow参数指示对象的窗口是打开还是关闭。

如何抓住TOLEContainer的外部编辑器关闭的时刻？

2 个答案: