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 判断一个颜色是否是亮色

Delphi paramstr的用法

Delphi upload 上传文件

Delphi seek函数中参数说明

dll与exe之间的恩爱情仇

Delphi使用indy组件http上传文件

Delphi adoconnection断线重连

Delphi中messagebox用法

Delphi写qq消息群发（模拟按键精灵）

Delphi最全面的dbgrid点击标题实现排序

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

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