about.pas

delphi制作的帮助学习软件

{*******************************************************}
{                                                       }
{       单元名称: About                                 }
{       创建日期: 2005-08-26                            }
{       摘要说明: 关于图片显示                          }
{                                                       }
{       详细说明:                                       }
{                                                       }
{       参　　阅:                                       }
{                                                       }
{       已知问题:                                       }
{                                                       }
{       待作事项:                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       当前版本: 2.0                                   }
{       版本历史:                                       }
{                                                       }
{*******************************************************}

unit About;

{==========================================================================
                        单元接口部分
==========================================================================}

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, jpeg;

type
  TFrmAbout = class(TForm)
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAbout          : TFrmAbout;

  {==========================================================================
                          单元实现部分
  ==========================================================================}

implementation

{$R *.DFM}

procedure TFrmAbout.FormShow(Sender: TObject);
//var
  //MS: TMemoryStatus;
begin
  //GlobalMemoryStatus(MS);
  //PhysMem.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024);
  //FreeRes.Caption := Format('%d %%', [MS.dwMemoryLoad]);
end;

procedure TFrmAbout.Image1Click(Sender: TObject);
begin
  Close;
end;

end.