www.pudn.com > 电话产品防伪伺服系统(tw8).rar > Uform_help.pas

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.