aboutu.pas

包含详细的代码设计,实现图书管理系统功能.是一个很好的实例

unit AboutU;

interface

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

type
  TAboutF = class(TForm)
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    version: TStaticText;
    name: TStaticText;
    copyright: TStaticText;
    os: TStaticText;
    memory: TStaticText;
    author: TStaticText;
    StaticText3: TStaticText;
    StaticText7: TStaticText;
    alarm: TLabel;
    BitBtn1: TBitBtn;
    Image2: TImage;
    Bevel2: TBevel;
    Bevel1: TBevel;
    panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
  end;

var
  AboutF: TAboutF;

implementation

uses ShareU;
{$R *.dfm}


procedure TAboutF.WMNCPaint(var Msg: TWMNCPaint);
begin
  inherited;
  draw(AboutF);
end;

procedure TAboutF.FormCreate(Sender: TObject);
begin
  try
    Caption:='关于 '+application.Title;
    Name.Caption:=Application.Title;
    version.Caption:=' v1.0';
    Copyright.Caption:='sonic';
    Author.Caption:='sonic';
    alarm.Caption:='本系统严禁非法使用';

    Memory.Caption:=FormatFloat('#,###" KB"',GetMemoryInfo div 1024);
    os.Caption:=GetOSInfo;
  except
    MessageBox(handle,'某些信息不能取得','提示',MB_OK);
  end;
end;

procedure TAboutF.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TAboutF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AboutF:=nil;
  action:=cafree;
end;

end.