uform_help.pas

来自「电话防伪系统」· PAS 代码 · 共 63 行

unit Uform_help;

interface

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

type
  Tform_help = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Image2: TImage;
    Label1: TLabel;
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    Panel2: TPanel;
    WebBrowser1: TWebBrowser;
    procedure FormShow(Sender: TObject);
    procedure TreeView1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form_help: Tform_help;

implementation

{$R *.dfm}

procedure Tform_help.FormShow(Sender: TObject);
begin
   WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/main.htm');
end;

procedure Tform_help.TreeView1DblClick(Sender: TObject);
begin
   if treeview1.Selected.Text='电话伺服系统' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/main.htm');
   if treeview1.Selected.Text='功能表' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun.htm');
   if treeview1.Selected.Text='增加新的号码' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun1-1.htm');
   if treeview1.Selected.Text='查找号码' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun1-2.htm');
   if treeview1.Selected.Text='删除号码' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun1-3.htm');
   if treeview1.Selected.Text='１＃线路关闭／打开服务' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun2-1.htm');
   if treeview1.Selected.Text='２＃线路关闭／打开服务' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun2-1.htm');
   if treeview1.Selected.Text='标贴打印' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun3-1.htm');
   if treeview1.Selected.Text='号码输出' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun3-2.htm');
   if treeview1.Selected.Text='语音录制' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun4-1.htm');
   if treeview1.Selected.Text='产品语音' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun4-2.htm');
   if treeview1.Selected.Text='历史纪录查询' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun5-1.htm');
   if treeview1.Selected.Text='历史纪录清除' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun5-2.htm');
   if treeview1.Selected.Text='帮助' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun6-1.htm');
   if treeview1.Selected.Text='访问www.BeeShip.com' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun6-2.htm');
   if treeview1.Selected.Text='发Email给作者' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun6-3.htm');
   if treeview1.Selected.Text='关于本软件' then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+ 'help/fun6-4.htm');
end;

end.