Delphi/CppBuilder

开发平台：

Delphi

U_qdck.pas：源码内容

							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.

						