Delphi - 如何移动控件并刷新它

Question

对于 Delphi 中的编程练习，我想一次在屏幕上滚动一个图像 1 个像素，并在每次移动它时重新绘制它，所以它看起来实际上是在移动。目前 Delphi 只是在开始和结束时绘制它，所以它并不平滑。我尝试了重绘和刷新，但都没有奏效。我还尝试让它可见和不可见，看看是否可行，但没有运气。

image1.Visible := true;
for i := 0 to 50 do
begin
   image1.Visible := false;
   image1.Left := image1.Left + 1;
   image1.Repaint(); // this doesn't work...
   for j := 0 to 1000000 do
   begin
      k := i + j; // do nothing code
   end; 
   image1.Visible := true;
end;

有人知道我错过了什么吗？谢谢。

Answer 1

一个更好的方法是使用计时器。在 Delphi 中，这意味着 TTimer 类的对象。每次计时器触发时，您只需增加 Left 属性。您可能需要一个计数器，一旦它触发了您想要的次数，它就会禁用计时器。

Answer 2

procedure TForm1.FormClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 50 do
  begin
    image1.Left := image1.Left + 1;
    Application.ProcessMessages;
    sleep(100);
  end;
end;

您也可以使用Image1.Update 代替Application.ProcessMessages，但随后应用程序将停止响应Windows 消息；因此，它会“冻结”。无论如何，这是一种非常丑陋的动画制作方式（非常丑陋！），但如果它只是一个练习，那么......