Technology Learning

导航

桌面滚动文字

procedure TForm10.FormCreate(Sender: TObject);
begin
Brush.Style:=bsclear;
Fx:=0;
end;

procedure TForm10.Timer1Timer(Sender: TObject);
var
  i1,i2:integer;

begin
  //****
  Form10.Visible:=false;
  //i1:=Random(800);
  i2:=100;//Random(600);
  inc(Fx,10);
  if Fx>=1280 then
  Fx:=0;


  Form10.Left:=Fx;
  Form10.Top:=i2;
  Form10.Visible:=true;
  Form10.Refresh;
  label1.Refresh;

end;

posted on 2010-03-25 22:09  浔阳渔夫  阅读(477)  评论(0编辑  收藏  举报