delphi编程实现桌面滚动文字

减小字体 增大字体 作者:佚名  来源:不详  发布时间:2010-12-04 00:07:51

看多很多程序都可以做到桌面滚动文字,如酷狗的桌面歌词类似的,delphi里如何实现这个呢?下面的代码网上搜集,未测试!

var
  Fx:integer;

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;
  i2:=100;
  inc(Fx,10);
  if Fx>=1280 then
  Fx:=0;
  Form10.Left:=Fx;
  Form10.Top:=i2;
  Form10.Visible:=true;
  Form10.Refresh;
  label1.Refresh;
end;

本文来源:http://www.cnblogs.com/huking/archive/2010/03/25/1696185.html

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B