u_qdck.pas

《delphi深度编程及其项目开发》

unit U_qdck;

interface

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

type
  TfrmQdck = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Image1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQdck: TfrmQdck;

implementation

{$R *.DFM}

procedure TfrmQdck.Image1Click(Sender: TObject);
begin
  if assigned(frmQdck) then
  try
    FrmQdck.Close;
  except
  end;
end;

procedure TfrmQdck.Timer1Timer(Sender: TObject);
begin
  if label1.Left = panel1.Width then
    label1.Left := 0;
  label1.Left := label1.Left + 2;
  refresh;
end;

end.