wait.pas

工廠採購管理系統

unit Wait;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ToolWin,ExtCtrls,buttons, ADODB, ImgList;

type
  TWaitForm = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 private
    procedure WMPAINT1(var msg:TMESSAGE);message WM_PAINT;
    procedure WMNCPAINT1(var msg:TWMNCPAINT);message WM_NCPAINT;
    procedure Active(var msg:Tmessage);message WM_ACTIVATE;
    procedure WMNCLBUTTONDBLCLK1(var msg:Tmessage);message WM_NCLBUTTONDBLCLK;
       { Private declarations }
  public
    titleBmp:Tbitmap;
    { Public declarations }
  end;


implementation

uses udm1;
{$R *.dfm}
procedure TWaitForm.WMNCLBUTTONDBLCLK1(var msg:Tmessage);
begin
  //
end;
procedure TWaitForm.Active(var msg:Tmessage);
begin
  self.WMPAINT1(msg);
end;

procedure TWaitForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  params.Style:=params.Style-WS_SYSMENU;
end;

procedure TWaitForm.WMPAINT1(var msg:TMESSAGE);
begin
  sendmessage(self.Handle,WM_NCPAINT,0,0);
  inherited;
end;

procedure TWaitForm.WMNCPAINT1(var msg:TWMNCPAINT);

begin

end;

procedure TWaitForm.FormShow(Sender: TObject);
begin
  timer1.Enabled:=true;
  button1.Enabled:=false;
end;

procedure TWaitForm.Timer1Timer(Sender: TObject);
begin
  if strtoint(button1.Caption)>0 then
    button1.Caption:=inttostr(strtoint(button1.Caption)-1)
  else
  begin
    button1.Enabled:=true;
    button1.Caption:='关闭';
    timer1.Enabled:=false;
  end;

end;

procedure TWaitForm.Button1Click(Sender: TObject);
begin
  close;
end;

end.