unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption :=' 静夜思'+char(13);
label1.Caption :=label1.Caption+'床前明月光,'+char(13);
label1.Caption :=label1.Caption +'疑是地上霜;'+char(13);
label1.Caption :=label1.Caption+'举头望明月,'+char(13);
label1.Caption :=label1.Caption+'低头思故乡。'
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Height +label1.Top <=0
then label1.Top :=form1.Height
else label1.Top :=label1.Top -1
end;procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.Caption='暂停(&S)' then
begin
button1.Caption:='继续(&C)';
timer1.Enabled:=false;
end
else
begin
button1.Caption :='暂停(&S)';
timer1.Enabled:=true;
end;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption :=' 静夜思'+char(13);
label1.Caption :=label1.Caption+'床前明月光,'+char(13);
label1.Caption :=label1.Caption +'疑是地上霜;'+char(13);
label1.Caption :=label1.Caption+'举头望明月,'+char(13);
label1.Caption :=label1.Caption+'低头思故乡。'
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Height +label1.Top <=0
then label1.Top :=form1.Height
else label1.Top :=label1.Top -1
end;procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.Caption='暂停(&S)' then
begin
button1.Caption:='继续(&C)';
timer1.Enabled:=false;
end
else
begin
button1.Caption :='暂停(&S)';
timer1.Enabled:=true;
end;
end;
不行的话电脑重启一下~~
再不行的话,重装delphi~~
实在还是不行的话,哥们..重装系统了~~