1. 程式人生 > >delphi怎麽做桌面滾動文字?

delphi怎麽做桌面滾動文字?

自己 int 限制 roc -m .... pst blog gin

就是在桌面顯示從TXT讀取出來的字,並限制在1個框內移動(就是從框左邊出現往右邊移動並從框邊消失)
我用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<arect.Left-canvas.TextWidth(s) then xpos:=arect.Right;
end;

arect 就是限制要顯示的範圍了

delphi怎麽做桌面滾動文字?