CG_Form_u.pas

【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：CG_Form_u.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    {
     author: 肖景峰
     create date : 
     discrption:  选择成功提示窗体
    }
    unit CG_Form_u;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, jpeg;
    
    type
      TCG_Form = class(TForm)
        Timer1: TTimer;
        Image1: TImage;
        procedure FormShow(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure Timer1Timer(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      CG_Form: TCG_Form;
    
    implementation
    
    {$R *.dfm}
    
    procedure TCG_Form.FormShow(Sender: TObject);
    begin
         Timer1.Enabled:=true;
    end;
    
    procedure TCG_Form.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
        ACtion:=caFree;
        CG_Form:=nil;
    end;
    
    procedure TCG_Form.Timer1Timer(Sender: TObject);
    begin
         Timer1.Enabled:=false;
         Close;
    end;
    
    end.