switchuifrm.pas

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

unit SwitchUIFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TSwitchUIForm = class(TForm)
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SwitchUIForm      : TSwitchUIForm;

procedure ShowSwitchUIForm;

implementation

uses MainFrm;

{$R *.dfm}

procedure ShowSwitchUIForm;
begin
  SwitchUIForm := TSwitchUIForm.Create(MainForm);
  if SwitchUIForm.ShowModal = mrOK then
    case SwitchUIForm.RadioGroup1.ItemIndex of
      0: MainForm.ZoCWebBrowser.Navigate(ExtractFilePath(Paramstr(0)) + 'test1.htm');
      1: MainForm.ZoCWebBrowser.Navigate(ExtractFilePath(Paramstr(0)) + 'test2.htm');
    end;
  SwitchUIForm.Free;
end;

end.