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 得到一个cuid用户唯一标识

Delphi 提取网页源文件纯文本函数

Delphi 右下角滑动消息窗口

使用串口模拟工具进行串口程序开发调试

Delphi 获取android包名称

Delphi 让combobox只允许输入数字和回车键以及Delphi key值表

Delphi firedac 另存json

Delphi 透明窗体

Delphi 安卓读写ini文件

程序人生 : 30岁，我的程序员梦想

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

转载请注明出处：木庄网络博客 » Delphi 窗体内控件实现滚动字母