configfile.pas

灰鸽子VIP1.2经典源代码

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.