mainfrm.pas

来自「稿件名称：利用WebBrowser Control实现程序界面与实现的分离 」· PAS 代码 · 共 63 行

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw_TLB, ZoCWebBrowser;

type
  TMainForm = class(TForm)
    ZoCWebBrowser: TZoCWebBrowser;
    function ZoCWebBrowserGetExternal(out ppDispatch: IDispatch): HRESULT;
    procedure FormCreate(Sender: TObject);
    function ZoCWebBrowserShowContextMenu(const dwID: Cardinal;
      const ppt: PPoint; const pcmdtReserved: IInterface;
      const pdispReserved: IDispatch): HRESULT;
    function ZoCWebBrowserTranslateAccelerator(const lpMsg: PMsg;
      const pguidCmdGroup: PGUID; const nCmdID: Cardinal): HRESULT;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses MyExternalImpl;

{$R *.dfm}

function TMainForm.ZoCWebBrowserGetExternal(
  out ppDispatch: IDispatch): HRESULT;
var
  MyExternal: TMyExternal;
begin
  MyExternal:= TMyExternal.Create;
  ppDispatch :=MyExternal;
  Result :=S_OK;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  ZoCWebBrowser.Navigate(ExtractFilePath(Paramstr(0)) + 'test1.htm');
end;

function TMainForm.ZoCWebBrowserShowContextMenu(const dwID: Cardinal;
  const ppt: PPoint; const pcmdtReserved: IInterface;
  const pdispReserved: IDispatch): HRESULT;
begin
  Result :=S_OK;
end;

function TMainForm.ZoCWebBrowserTranslateAccelerator(const lpMsg: PMsg;
  const pguidCmdGroup: PGUID; const nCmdID: Cardinal): HRESULT;
begin
  Result :=S_OK;
end;

end.