frmwaitpas.pas

来自「是一个用delphi设计的考勤系统」· PAS 代码 · 共 32 行

unit frmWaitpas;

interface

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

type
   TfrmWait = class(TForm)
      Label1: TLabel;
      Timer1: TTimer;
      procedure Timer1Timer(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
   end;
var
   frmWait: TfrmWait;

implementation

{$R *.DFM}

procedure TfrmWait.Timer1Timer(Sender: TObject);
begin
   label1.Visible := not label1.Visible;
end;

end.