helpa.pas

编写

unit helpa;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ShellAPI, Grids;

type
  Tf_help_about = class(TForm)
    Ok: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Bevel1: TBevel;
    memst: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    memleft: TLabel;
    Label7: TLabel;
    Http: TLabel;
    Label9: TLabel;
    mailto: TLabel;
    TogName: TButton;
    procedure OkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure HttpClick(Sender: TObject);
    procedure mailtoClick(Sender: TObject);
    procedure TogNameClick(Sender: TObject);
	procedure HttpMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	procedure FormClose(Sender: TObject; var Action: TCloseAction);
	procedure HttpMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CMMouseLeave(var Msg : TMessage); message CM_MouseLeave;
  end;

var
  f_help_about: Tf_help_about;
  IsMouseEnter : Boolean;
  IsMainTrue : Boolean;
  MouseObject : TObject;

implementation

uses main,helpag,togaut;

{$R *.DFM}

procedure Tf_help_about.OkClick(Sender: TObject);
begin
  f_help_about.Close;
end;

procedure Tf_help_about.FormShow(Sender: TObject);
var mem : TMemoryStatus;
begin
  GlobalMemoryStatus(mem);
  memst.Caption:=FormatFloat('##,###,###',trunc(mem.dwTotalPhys/1024))+' KB';
  memleft.Caption:=FormatFloat('##,###,###',trunc(mem.dwAvailPhys/1024))+' KB';
  IsMouseEnter:=False;
  IsMainTrue:=True;
end;

procedure Tf_help_about.Image1DblClick(Sender: TObject);
begin
  f_help_about.Close;
  f_help_about_game.show;
end;

procedure Tf_help_about.HttpClick(Sender: TObject);
begin
  ShellExecute(f_help_about.Handle,nil,pchar(Http.Hint),nil,nil,SW_SHOWNORMAL);
end;

procedure Tf_help_about.mailtoClick(Sender: TObject);
begin
  ShellExecute(f_help_about.Handle,nil,PChar(mailto.Hint),nil,nil,SW_SHOWNORMAL);
end;

procedure Tf_help_about.TogNameClick(Sender: TObject);
begin
  IsMainTrue:=False;
  f_help_about.Close;
  f_TogAut.Show;
end;

procedure Tf_help_about.CMMouseLeave(var Msg : TMessage);
begin
  if IsMouseEnter then
  begin
       IsMouseEnter:=False;
       (MouseObject as TLabel).Font.Style:=(MouseObject as TLabel).Font.Style-[fsUnderLine];
  end;
end;

procedure Tf_help_about.HttpMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  IsMouseEnter:=True;
  (Sender as TLabel).Font.Style:=(Sender as TLabel).Font.Style+[fsUnderLine];
  MouseObject:=Sender;
end;

procedure Tf_help_about.HttpMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then
     (MouseObject as TLabel).Font.Style:=(MouseObject as TLabel).Font.Style-[fsUnderLine];
end;

procedure Tf_help_about.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  f_main.Enabled:=IsMainTrue;
end;

end.