Delphi原生文字滚动 向上的字幕滚动.rar

Delphi原生文字滚动 向上的字幕滚动，滚动速度可自定义，程序本身没有使用Delphi之外的控件，在Delphi7环境可直接编译，实现类似电影序幕那样的文字向上不间断滚动特效，相关代码： 　　zShowLine(self);//显示字符串 　　//bitblt 转移矩形图 (目标句柄，LS x,y,宽，高，源句柄，LS x,y,光栅运算符） 　　BitBlt(iDc,0,0,Panel1.Width,Panel1.Height, 　　Bmp.Canvas.Handle,0,Currline,srcCopy); //改变currline可实现左移右移