CBX应用中使用TAppletRunner调用AO

unit uAO_mdidemo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uModRoot, ExtCtrls, StdCtrls, udmCLXBaseAppX, ImgList, Menus,
  ComCtrls, ToolWin ;

type
  TAO_mdidemo = class(TModRoot)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton4: TToolButton;
    Panel1: TPanel;

    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MyAO,MYAO1:TAppletRunner;
    CurrSvrHost: string;
    constructor Create(AOwner: TComponent); override;
    procedure InitModule(Data: string; SvrHost: string); override;
  end;

function GetModClass: TModRootClass;

implementation

{$R *.dfm}

exports
  GetModClass;

function GetModClass: TModRootClass;
begin
  Result := TAO_mdidemo;
end;
constructor TAO_mdidemo.Create(AOwner: TComponent);
begin
  inherited;

end;

procedure TAO_mdidemo.InitModule(Data, SvrHost: string);
begin
  inherited;
  CurrSvrHost := SvrHost;
end;

procedure TAO_mdidemo.ToolButton1Click(Sender: TObject);
begin
  inherited;
  MyAO:=TAppletRunner.CreateIn(Panel1,CurrentContext);
  MyAO.RunApplet(1,166,'http://localhost/cbx/appsvr.dll/','') ;
 
end;

procedure TAO_mdidemo.ToolButton4Click(Sender: TObject);
var panel2: Tpanel;
  
begin
  inherited;
  panel2 := Tpanel.Create(application);
  panel2.Parent := contentpanel;
  panel2.Left := panel1.Left + panel1.Width + 100;
  panel2.Top := panel1.Top;
  panel2.Height := panel1.Height;
  panel2.Width := panel1.Width;
    MyAO1:=TAppletRunner.CreateIn(Panel2,CurrentContext);
  MyAO1.RunApplet(109,2,'http://localhost/cbx/appsvr.dll/','') ;

end;

procedure TAO_mdidemo.ToolButton7Click(Sender: TObject);
begin
  inherited;

 //关闭应用
  if assigned(CurrentContext.CurrIE) then begin
    CurrentContext.CurrWindow.close; //如果在ie中就关闭ie
  end
  else
  begin
    Application.Terminate; //在独立运行模式则关闭程序
  end;
end;

end.