about_frm.pas

来自「简单的人事工资管理系统.... 我是想下载源码菜拿来换的...呵呵~~ 」· PAS 代码 · 共 48 行

unit About_frm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AAFont, AACtrls, StdCtrls, ExtCtrls, RzButton;

type
  TAbout = class(TForm)
    pnl1: TPanel;
    AAScrollText1: TAAScrollText;
    btn1: TRzButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  About: TAbout;

implementation

{$R *.dfm}


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

procedure TAbout.FormDestroy(Sender: TObject);
begin
    About:=nil;
end;

procedure TAbout.btn1Click(Sender: TObject);
begin
    Self.ModalResult:=mrOk;
    Close;
end;

end.