unit_login.pas

来自「这是一个用Delphi开发的MP3播放器的源码」· PAS 代码 · 共 51 行

unit Unit_Login;

interface

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

type
  TFrm_Login = class(TForm)
    Timer: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Panel_Main: TPanel;
    Panel_Zi: TPanel;
    procedure TimerTimer(Sender: TObject);
    PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
  private
    { Private declarations }
  public
    { Public declarations }
    Login_Off:Boolean;
  end;

var
  Frm_Login: TFrm_Login;

implementation

{$R *.dfm}

PROCEDURE TFrm_Login.CMEraseBkgnd(var Message:TWMEraseBkgnd);
BEGIN
brush.style:=bsClear;
Inherited;
END;

procedure TFrm_Login.TimerTimer(Sender: TObject);
begin
if Frm_Login.Panel_Zi.Left < Frm_Login.Panel_Main.Width then
   begin
        Frm_Login.Panel_Zi.Left := Frm_Login.Panel_Zi.Left +5;
        exit;
   end;             

     Login_Off:= True;
     Frm_Login.Timer.Enabled := False;
end;

end.