当前位置: 源码素材网 » Delphi源码 » 字符处理 » 详情页

Delphi字符滚动-文字滚动例子

Delphi实现的字符滚动-文字滚动例子,文字水平和纵向滚动,由上到下、由左到右、由下到上、由右到左四种方向的滚动,具体的滚动实现请参见以下代码:
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
   //文字从右到左滚动
   label1.Left := label1.Left-2 ;
   if label1.Left+Label1.Width <1 then
   label1.Left := form1.Width ;
   //文字从上到下滚动
   label2.top := label2.top-1;
   if label2.Top+label2.Height<1 then
   label2.Top := form1.Height;
   //文字从左到右滚动
   if label3.Left>form1.Width then
   label3.Left := 0-label2.Width
   else
   label3.Left := label3.Left+2;
   //文字从下到上滚动
   if label4.Top>form1.Height then
   label4.Top := 0-label4.Height
   else
   label4.Top := label4.Top+1;
  end;

  • 相关标签:文字滚动
  • 调试环境:Delphi7+
  • 文件大小:5.76K
  • 资源评级:
  • 更新时间:2020-03-25
  • 相关链接:暂无演示

源码测试截图:

Delphi字符滚动-文字滚动例子运行截图

相似源码:文字滚动 Delphi源码下载:Delphi字符滚动-文字滚动例子 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi字符滚动-文字滚动例子”源代码侵犯了您的权益,请尽快告诉我们。