aboutfrm.pas

来自「NetHook API 对战平台内核库是一套实现时下流行的网络对战平台[如浩方、」· PAS 代码 · 共 62 行

unit AboutFrm;

interface

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

type
  TAboutForm = class(TForm)
    Panel5: TPanel;
    LogoImage: TImage;
    SoftNameLabel: TLabel;
    WebSiteLabel: TLabel;
    VersionLabel: TLabel;
    BBSLabel: TLabel;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BBSLabelClick(Sender: TObject);
    procedure WebSiteLabelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


function ShowAboutForm: Integer;

implementation

uses ProjectUtils, NhPubUtils;

{$R *.dfm}

function ShowAboutForm: Integer;
begin
  with TAboutForm.Create(nil) do
  try
    Result := ShowModal;
  finally
    Free;
  end;
end;

procedure TAboutForm.BBSLabelClick(Sender: TObject);
begin
  OpenURL('http://www.net963.com/BBS/');
end;

procedure TAboutForm.FormCreate(Sender: TObject);
begin
  VersionLabel.Caption := GetExeStringVer + ' 测试版';
end;

procedure TAboutForm.WebSiteLabelClick(Sender: TObject);
begin
  OpenURL('http://www.net963.com/');
end;

end.