unit_levelidx.pas

传奇3封外挂客户端+登陆器+配置器源码............................

unit Unit_LevelIdx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, StdCtrls, SUIEdit, SUIButton, SUIDlg,
  ComCtrls, SUIStatusBar, ScktComp, OleCtrls, SHDocVw, SUIImagePanel;

type
  TFrm_LevelIdx = class(TForm)
    suiForm1: TsuiForm;
    suiStatusBar1: TsuiStatusBar;
    suiImagePanel1: TsuiImagePanel;
    Bt_Close: TsuiButton;
    WebBrowser1: TWebBrowser;
    procedure Bt_CloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_LevelIdx: TFrm_LevelIdx;
  Step:String;
implementation

uses Unit_Main, Unit_Msg, Unit_MyPro;

{$R *.dfm}

procedure TFrm_LevelIdx.Bt_CloseClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_LevelIdx.FormShow(Sender: TObject);
begin
  case Select_idx of
  0:
  begin
    suiForm1.Caption:='英雄榜';
    WebBrowser1.Navigate(ServerUrl+'\Mir3CharIdx\Index_Level.htm');
    suiStatusBar1.Panels[0].Text:='正在打开英雄榜......';
  end;
  1:
  begin
    suiForm1.Caption:='财富榜';
    WebBrowser1.Navigate(ServerUrl+'\Mir3CharIdx\Index_Gold.htm');
    suiStatusBar1.Panels[0].Text:='正在打开财富榜......';
  end;
  2:
  begin
    suiForm1.Caption:='行会榜';
    WebBrowser1.Navigate(ServerUrl+'\Mir3CharIdx\Index_Guild.htm');
    suiStatusBar1.Panels[0].Text:='正在打开行会榜......';
  end;
  end;
end;

procedure TFrm_LevelIdx.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  suiStatusBar1.Panels[0].Text:='祝您游戏愉快！';
end;

procedure TFrm_LevelIdx.FormCreate(Sender: TObject);
begin
  SetForm_Style(suiForm1,ExeType);
end;

end.