aboutunit.~pas

来自「图书馆管理系统,非常有用,希望给你带来帮助」· ~PAS 代码 · 共 95 行

unit AboutUnit;

interface

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

type
  TAboutForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Bevel1: TBevel;
    Label9: TLabel;
    Label10: TLabel;
    procedure Label2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    alt:boolean;
    procedure WMNCpaint(var Msg:TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;

implementation
uses MyUnit,Share;

{$R *.dfm}

procedure TAboutForm.Label2Click(Sender: TObject);
begin
  if alt then
  begin
    Application.CreateForm(TMyForm,MyForm);
    MyForm.ShowModal;
    MyForm.Free;
  end;
end;

procedure TAboutForm.FormCreate(Sender: TObject);
var
  RegName,RegOrg:string;
  count:Cardinal;
begin
  share.GetInfo(RegName,RegOrg);
  share.GetMemoryInfo(count);
  Label7.Caption:=RegName+'   ';
  Label8.Caption:=RegOrg+'   ';
  Label10.Caption:=FormatFloat('#,###" KB"',count div 1024);
end;

procedure TAboutForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssAlt in Shift then
    alt:=True;
end;

procedure TAboutForm.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  alt:=False;
end;

procedure TAboutForm.WMNCpaint(var Msg: TWMNCPaint);
begin
  inherited;
  Draw(aboutform);
end;

procedure TAboutForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AboutForm:=nil;
  Action:=caFree;
end;

end.