Delphi 窗体内控件实现滚动字母


本文整理自网络,侵删。

 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 100;
  if ActiveControl <> nil then
    ActiveControl.Left := ActiveControl.Left + 10;

    if ActiveControl.Left>Form1.Width then
    begin
      ActiveControl.Left:=0;
    end;
end;

相关阅读 >>

Delphi winapi: inflaterect - 改变矩形大小

Delphi 获取外部程序句柄与发送消息

Delphi Delphi 学习大师qq群讨论的字符串位置替换方法

Delphi 调用sql和mysql存储过程

Delphi执行js

Delphi 判断字符串是否包含汉字,正则版和非正则版

Delphi webbrowser 跨域访问

secsperday:一天共有多少秒

Delphi superobject json操作类的基本用法

Delphi 使用edge browser浏览器组件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...