about_unit.~pas

来自「餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述」· ~PAS 代码 · 共 34 行

unit ABOUT_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TFlatPanelUnit, TFlatButtonUnit, AAFont, AACtrls;

type
  TAbout_Form = class(TForm)
    FlatPanel1: TFlatPanel;
    AAText1: TAAText;
    FlatButton1: TFlatButton;
    procedure FlatButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  About_Form: TAbout_Form;

implementation

{$R *.dfm}

procedure TAbout_Form.FlatButton1Click(Sender: TObject);
begin
Close;
end;

end.