delphi - delphi中的双缓冲

Question

使用Delphi XE2，我想让一些按钮在delphi应用程序中移动。

我写了这段代码:

procedure TForm1.DoSomething;
var x : integer;
begin    
   for x := 200 downto 139 do begin
       // move two buttons
      Button1.Top := x;
      Button3.Top := x;
       // skip some repaints to reduce flickering
      if (x mod 7 = 1) then begin
          Form1.Repaint;
      Sleep(50);
   end;
end;

不幸的是，运行此程序时它仍然明显闪烁。

这是我的问题:有没有办法让动画流畅(没有任何闪烁)？

编辑:为了使动画更流畅，将 sleep(50) 中的 50 更改为较小的值并删除此行:

if(x mod 7 = 1) then begin

Answer 1

将Form1.DoubleBuffered设置为True。您可以在代码中执行此操作，但我认为该属性已在 XE2 中发布，因此您也可以在对象检查器中设置它。