delphi怎么做桌面滚动文字？
2021-04-18 20:27
阅读：451
标签：log phi 指点 interval highlight ref 详细 .com 自己 就是在桌面显示从TXT读取出来的字，并限制在1个框内移动（就是从框左边出现往右边移动并从框边消失） arect 就是限制要显示的范围了 delphi怎么做桌面滚动文字？ 标签：log phi 指点 interval highlight ref 详细 .com 自己 原文地址：https://www.cnblogs.com/westsoft/p/8684246.html
我用HDC+textout只是读取字显示到桌面，不知道桌面移动
哪位大侠指点下啊，或用其他方法，最好有详细代码，其他无相关的回答无视之....这个非常简单，放一个Timer，设置interval 为200吧 这个看自己了
然后看下面的代码
var
xpos:integer=0;
s:string=‘这里就是要滚动显示的字符串‘;
procedure TForm1.Timer1Timer(Sender: TObject);
var
arect:Trect;
begin
arect:=Rect(100,100,200,130);
canvas.FillRect(arect);
canvas.TextRect(arect,xpos,arect.Top,s);
dec(xpos,5);
if xpos
评论
亲，登录后才可以留言！