u_form_datacheck4.~pas

来自「这是一个啤酒行业的软件」· ~PAS 代码 · 共 46 行

unit U_Form_DataCheck4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EasyGrid, StdCtrls, ComCtrls;

type
  TForm_DataCheck_4 = class(TForm)
    GroupBox1: TGroupBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox3: TGroupBox;
    Grid1: TEasyGrid;
    TabSheet2: TTabSheet;
    GroupBox2: TGroupBox;
    Grid2: TEasyGrid;
    TabSheet3: TTabSheet;
    GroupBox4: TGroupBox;
    Grid3: TEasyGrid;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_DataCheck_4: TForm_DataCheck_4;

implementation

uses U_Form_DataCheck;

{$R *.dfm}

procedure TForm_DataCheck_4.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
     EnableWindow(Form_DataCheck.Handle,true);
     CanClose:=true;
end;

end.