如题,如何用delphi制作卷动背景???
请高手们帮帮忙。
请高手们帮帮忙。
解决方案 »
- String引用计数
- 有没有广州的DELPHI高手啊?我有几个小软件要做做.
- 帮帮我嘛
- delphi 向后台程序发送按键(高手救命 急)
- 关于DataGrid一个小问题!
- 请教astaclientsocket,nmsmtp的具体用法(高分)
- 在delphi中用ado连接foxpro数据库,如何真正的将数据库中的记录删除?真删除,不是假删除!在线等待!
- 版主请关注,非常怀疑icqvsvol和cg1120(代码最优化-§雪是冷的,人是暖的§) 是同一个人,我鄙视象cg1120(代码最优化-§雪是冷的,人是
- Toverlapped,是什么类型!谢了!
- 高手请进,关于网络编程~
- 修改 IXMLNode
- delphi可以连接sql server里面的每个库吗
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, AppEvnts, ExtCtrls;type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
procedure BltBack();//画滚动背景方法
end;var
Form1: TForm1;
x:dword;//记录背景移动的坐标
T:dword;//记录刷新时间间隔implementation{$R *.dfm}procedure TForm1.BltBack;
Const imgwidth= 320; //图象宽
imgheight=240;//高
begin
if (GetTickCount-T)>100 then //刷新间隔时间200毫秒
begin
T:=GetTickCount;
if (x>imgwidth) then x:=0 else Inc(x,2);//从左向右
end;
bitblt(Image1.Canvas.Handle,x,0,imgwidth,imgheight,Image2.canvas.Handle,0,0,SrcCopy); //画往右的贴图
bitblt(Image1.Canvas.Handle,0,0,x,imgheight,Image2.Canvas.Handle,imgwidth-x,0,srccopy);//画填补的缺图
image1.Canvas.TextOut(x,0,inttostr(x));//可以看到移动的相对位置
end;procedure TForm1.FormCreate(Sender: TObject);
begin
T := GetTickCount;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
BltBack; //画背景
end;end.