printoptionfrm.pas

来自「考勤管理是企业内部管理的重要环节和基础」· PAS 代码 · 共 41 行

unit PrintOptionFrm;

interface

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

type
  TPrintOptionForm = class(TForm)
    RadioGroup1: TRadioGroup;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PrintOptionForm: TPrintOptionForm;

implementation

{$R *.DFM}

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

procedure TPrintOptionForm.FormDestroy(Sender: TObject);
begin
  PrintOptionForm:=Nil;
end;

end.