Question

好的，首先我只是在德尔福搞乱，但仍然很新，但我注意到每当我尝试制作某种游戏时，W，A，S和D都是移动一个物体的按钮（TImage），它开始随机闪烁，我注意到如果速度很快，或者当它移动并且后面有另一个图像（背景）时会发生...

我的大多数＆＃34;移动＆＃34;代码如下所示：

if key = 's' then begin
for I := 1 to 5 do
    sleep(1);
    x:=x-2;
    Image1.Top := x;
 end;

也许这会导致它，但它仍然很烦人。如果你能帮助我，我会很高兴的。

Answer 1

使用TPaintBox可以更好地处理这样的事情。

让键击根据需要设置变量，然后调用TPaintBox.Invalidate()以在操作系统准备就绪时触发重新绘制。

TPaintBox.OnPaint事件处理程序可以根据需要在当前变量值指定的适当坐标处绘制TGraphic。

var
  X: Integer = 0;
  Y: Integer = 0;

procedure TMyForm.KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    'W': begin
      Dec(Y, 2);
      PaintBox.Invalidate;
    end;
    'A': begin
      Dec(X, 2);
      PaintBox.Invalidate;
    end;
    'S': begin
      Inc(Y, 2);
      PaintBox.Invalidate;
    end;
    'D': begin
      Inc(X, 2);
      PaintBox.Invalidate;
    end;
  end;
end;

procedure TMyForm.PaintBoxPaint(Sender: TObject);
begin
  PaintBox.Canvas.Draw(X, Y, SomeGraphic);
end;

为什么图像碰撞会导致闪烁？

1 个答案: