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

Why does the image collision causes flashings?

好吧,首先我只是在 delphi 闲逛,对它还是很陌生,但我注意到每当我尝试制作某种游戏时,W,A,S和 D 是移动对象的按钮 (TImage),它开始随机闪烁,我注意到如果速度很快,或者当它移动并且背后有另一个图像(背景)时会发生这种情况......

我的大部分 "moving" 代码如下所示:

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

也许是这个原因,但它仍然很烦人。如果您能提供帮助,我将非常高兴。

像这样的事情最好用 TPaintBox 来处理。

让击键根据需要设置变量,然后在 OS 准备好时调用 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;