Question

delphi图像显示

如何像魔兽等游戏一样，在一个大场景中显示一小部分？？

Answer 1

创建TBitmap对象Bitmap1，将整个场景的图片调入到Bitmap1中
创建TBitmap对象Bitmap2，用于存放部分场景图像，将Width和Height设置为视区尺寸
创建TImage对象Image1，并使Image1.Picture := Bitmap2
每次调用Bitmap2.Canvas.CopyRect(
TRect(0,0,Bitmap2.Width,Bitmap2.Height)),
Bitmap1.Canvas,
TRect(X,Y,X+Bitmap2.Width,Y+Bitmap2.Height)
即可将大场景中的某部分拷贝到Image1中显示出来