Delphi中迁移转变文字的应用

    添加时间:2013-5-3 点击量:

    1.添加一个Timer控件，Interval属性设置为20。


    2.添加一个Label控件，Name为labMessage。


    3.在Timer的OnTimer事务添加如下代码：



    procedure TForm1.Timer2Timer（Sender: TObject）;

    begin

      labMessage.Left :    = labMessage.Left - 1 ;

          if labMessage.Left + labMessage.Width = 0 then

      labMessage.Left :    = Form1.Width;

    end;


    结果图：


    容易发怒的意思就是： 别人做了蠢事， 然后我们代替他们， 表现出笨蛋的样子。—— 蔡康永
    分享到：