【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,SwitchUIFrm.pas,希望对大家有所帮助!
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.