about.pas

电子书阅读器的delphi设计

{
模块名称：关于

使用方法：1、Create
		  2、ShowModal

返回值：  1、mrRetry：显示合作者名单
}

unit About;

interface

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

type
  TFormAbout = class(TForm)
	Image1: TImage;
	Bevel1: TBevel;
	Label1: TLabel;
	Label2: TLabel;
	Label3: TLabel;
	Label4: TLabel;
	Label5: TLabel;
	Label6: TLabel;
	Label7: TLabel;
	Label9: TLabel;

	LabelMemst: TLabel;
	LabelMemleft: TLabel;

	LabeliLikeWWW: TLabel;
	LabeliLikeEmail: TLabel;

	BtnOk: TButton;
	BtnMoreName: TButton;

	procedure FormShow(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
	procedure LabeliLikeWWWClick(Sender: TObject);
	procedure LabeliLikeEmailClick(Sender: TObject);
	procedure LabeliLikeWWWMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	procedure LabeliLikeWWWMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

  private
	{ Private declarations }
	FboolMouseEnter : Boolean;
	FMouseObject : TObject;

  public
	{ Public declarations }
	procedure CMMouseLeave(var Msg : TMessage); Message CM_MouseLeave;

  end;

var
  FormAbout: TFormAbout;

implementation

uses Game;

{$R *.DFM}

procedure TFormAbout.FormShow(Sender: TObject);
var mem : TMemoryStatus;
begin
	GlobalMemoryStatus(mem);
	LabelMemst.Caption := FormatFloat('##,###,###', Trunc(mem.dwTotalPhys / 1024)) + ' KB';
	LabelMemleft.Caption := FormatFloat('##,###,###', Trunc(mem.dwAvailPhys / 1024)) + ' KB';
	FboolMouseEnter := False;
end;

procedure TFormAbout.Image1DblClick(Sender: TObject);
begin
	FormGame.Show;
	ModalResult := mrOk;
end;

procedure TFormAbout.LabeliLikeWWWClick(Sender: TObject);
begin
	ShellExecute(Handle,
				 nil,
				 PChar(LabeliLikeWWW.Hint),
				 nil,
				 nil,
				 SW_SHOWNORMAL);
end;

procedure TFormAbout.LabeliLikeEmailClick(Sender: TObject);
begin
	ShellExecute(Handle,
				 nil,
				 PChar(LabeliLikeEmail.Hint),
				 nil,
				 nil,
				 SW_SHOWNORMAL);
end;

procedure TFormAbout.LabeliLikeWWWMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
	FboolMouseEnter := True;
	(Sender as TLabel).Font.Style := (Sender as TLabel).Font.Style + [fsUnderLine];
	FMouseObject := Sender;
end;

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

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

end.