userinfofrm.pas

NetHook API 对战平台内核库是一套实现时下流行的网络对战平台[如浩方、VS]同样功能的通用内核库

unit UserInfoFrm;

interface

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

type
  TUserInfoForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    UserNameText: TStaticText;
    Label2: TLabel;
    UserLevelText: TStaticText;
    Label3: TLabel;
    UserOnlineText: TStaticText;
    Label4: TLabel;
    UserVipText: TStaticText;
    Panel1: TPanel;
    TimerClose: TTimer;
    procedure TimerCloseTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function ShowUserInfoForm(VPoint: TPoint; const UserInfo: TBaseUserInfo): TUserInfoForm;
  procedure HideUserInfoForm;

var
  UserInfoForm: TUserInfoForm = nil;

implementation

uses ProjectUtils;

{$R *.dfm}

function ShowUserInfoForm(VPoint: TPoint; const UserInfo: TBaseUserInfo): TUserInfoForm;
begin
  if UserInfoForm = nil then
  begin
    UserInfoForm := TUserInfoForm.Create(Application);
  end;

  UserInfoForm.UserNameText.Caption := ' ' + UserInfo.UserName;
  UserInfoForm.UserLevelText.Caption := ' ' + Format('%s(等级%d)', [UserInfo.LevelName, UserInfo.Level]);
  UserInfoForm.UserOnlineText.Caption := ' ' + GetTimeDisplay(UserInfo.OnlineTime);
  UserInfoForm.UserVipText.Caption := ' ' + UserInfo.VirtualIP;

  UserInfoForm.Left := VPoint.X - UserInfoForm.Width;
  UserInfoForm.Top := VPoint.Y;
  UserInfoForm.Show;
  SetForegroundWindow(UserInfoForm.Handle);

  SetCapture(UserInfoForm.Handle);

  Result := UserInfoForm;  
end;

procedure HideUserInfoForm;
begin
  if UserInfoForm <> nil then
  begin
    UserInfoForm.Hide;
    FreeAndNil(UserInfoForm);
  end;
end;

procedure TUserInfoForm.TimerCloseTimer(Sender: TObject);
begin
  HideUserInfoForm;
end;

end.