德尔福双缓冲改写为长尾词，可以这样表达：德尔福双缓冲技术具体如何实现改写？
- 内容介绍
- 文章标签
- 相关推荐
本文共计235个文字，预计阅读时间需要1分钟。
使用Delphi XE2，我想在Delphi应用程序中移动一些按钮。我已经写了以下代码：
delphiprocedure TForm1.DoSomething;var x: integer;begin for x :=200 downto 139 do begin // move two buttons Button1.Top :=x; Button3.Top :=x; // skip 's' end;end;
使用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;
不幸的是,在运行此过程时,它仍然会显着闪烁.
这是我的问题：
有什么办法可以使动画流畅(没有任何闪烁)？
编辑：
要使动画更流畅,请在睡眠时将50更改为更小的值(50)并删除此行：
if(x mod 7 = 1) then begin 将Form1.DoubleBuffered设置为True.您可以在代码中执行此操作,但我认为该属性是在XE2中发布的,因此您也可以在Object Inspector中进行设置.
本文共计235个文字，预计阅读时间需要1分钟。
使用Delphi XE2，我想在Delphi应用程序中移动一些按钮。我已经写了以下代码：
delphiprocedure TForm1.DoSomething;var x: integer;begin for x :=200 downto 139 do begin // move two buttons Button1.Top :=x; Button3.Top :=x; // skip 's' end;end;
使用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;
不幸的是,在运行此过程时,它仍然会显着闪烁.
这是我的问题：
有什么办法可以使动画流畅(没有任何闪烁)？
编辑：
要使动画更流畅,请在睡眠时将50更改为更小的值(50)并删除此行：
if(x mod 7 = 1) then begin 将Form1.DoubleBuffered设置为True.您可以在代码中执行此操作,但我认为该属性是在XE2中发布的,因此您也可以在Object Inspector中进行设置.