www.pudn.com > 灰鸽子VIP1.2.rar > configfile.pas

unit configfile; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, SkinCtrls, DynamicSkinForm, ExtCtrls; 
 
type 
  TConfigfileFrm = class(TForm) 
    DSF: TspDynamicSkinForm; 
    Button1: TspSkinButton; 
    spSkinButton1: TspSkinButton; 
    spSkinButton2: TspSkinButton; 
    spSkinButton3: TspSkinButton; 
    spSkinStdLabel5: TspSkinStdLabel; 
    Timer1: TTimer; 
    procedure Timer1Timer(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure spSkinButton2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    autoclose:integer; 
  end; 
 
var 
  ConfigfileFrm: TConfigfileFrm; 
 
implementation 
uses 
Main; 
{$R *.dfm} 
 
procedure TConfigfileFrm.Timer1Timer(Sender: TObject); 
begin 
dec(autoclose); 
ConfigfileFrm.Caption :='文件传输确认  ('+inttostr(autoclose)+')'; 
if autoclose<=0 then 
begin 
  Timer1.Enabled:=False; 
  HgzFsb.Fugai:=True; 
  autoclose:=10; 
  Close; 
end; 
end; 
 
procedure TConfigfileFrm.FormShow(Sender: TObject); 
begin 
autoclose:=10; 
Timer1.Enabled:=True; 
end; 
 
procedure TConfigfileFrm.Button1Click(Sender: TObject); 
begin 
  Timer1.Enabled:=False; 
  HgzFsb.Fugai:=True; 
  Close; 
end; 
 
procedure TConfigfileFrm.spSkinButton2Click(Sender: TObject); 
begin 
  Timer1.Enabled:=False; 
  HgzFsb.Duand:=True; 
  Close; 
end; 
 
end.