用一个TIMMER。每隔几秒改变一个label的LEFT值,不就可以动了吗?
解决方案 »
- c++ 转delphi 帮个忙啊
- Delphi客户端连接C#服务端接收数据不一样
- 请教关于TRY异常抛出的调试问题
- 问一个搜索后字符串选中的问题
- 用delphi2005,想写个com+对象却在对象库看不到到象delphi7里面的transactional object?
- TCP
- 急求成品鞋厂管理系统一套(请帮忙踢一脚,多谢!)
- 我的程序中原来用了现在看来很多余的两个窗体,如何去掉?
- 咨询!咨询!咨询!
- 〓〓〓〓 如何在rxlib的richedit中插入图片 〓〓〓〓
- 加急!!!!请问如何动态建立 Access(*.mdb) 的odbc数据源(User Dsn)
- 对面的大虾看过来!求助!关于Excel的问题!!急!!急!!
Private Sub Timer4_Timer()
Label10.Caption = Right$(Label10.Caption, Len(Label10.Caption) - 1) & Left$(Label10.Caption, 1)
End Sub
我的思路是利用TCanvas,并在每次滚动后,利用fillrect方法消除残影。
具体代码,因为我现在没Delphi,关于这个问题也好久没接触过了,抱歉,我写不出来。
大概就是
canvas移动//同label的移动;
canvas.fillrect(文本所在区域);