login.pas

来自「人事管理系统的源代码」· PAS 代码 · 共 44 行

unit Login;

interface

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

type
  Tstart_form = class(TForm)
    Label1: TLabel;
    Panel2: TPanel;
    Timer1: TTimer;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  start_form: Tstart_form;

implementation

{$R *.dfm}

procedure Tstart_form.Timer1Timer(Sender: TObject);
begin
   if panel2.Width<=start_form.Width-100 then
       begin
       panel2.Width:=panel2.Width+3;
       end
   else
      begin
         Timer1.Enabled:=false;
         close;
      end;

end;

end.