问题(50分)

D

delphi_hzj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #1

给我解决个问题：
我想实现一个图片的移动，像FLASH一样，代码如下：
procedure TForm1.Timer2Timer(Sender: TObject);
begin　
if Image1.left>-200 then
Image1.left:=Image1.left-1
else
Image1.left:=584
end;　　　为什么在移动过程中图片会闪烁呀，这样很不好看，比FLASH差多了？有什么好办法吗？

 

Z

Zhejiang_Knight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #2

我好象见过，好象是将image放在panel中，移动panel就可以了，你试试

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #3

据说设置DoubleBuffered:=True;就可以了，偶没实验过。

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #4

同意楼上，利用双缓冲的概念。

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered :=True;
end;

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #5

嘻嘻，我好像就是听雪雪说的。

 

D

delfish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #6

不错，只要将DoubleBuffered:设置成True;就可以了。
事实上DoubleBuffered是TWinControl的一个属性，默认为false，这时所有Twin控件都是直接
paint到窗体上去的，所有会闪烁。
修改后的程序如下：
DoubleBuffered:=True;
if Image1.left > 400 then
Image1.left:=Image1.left-1
else
Image1.left:=584
这样就不会闪烁了。

 

B

basin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #7

将DoubleBuffered:设置成True
最好在下面有一个PANEL ,是单数个就没问题了.

 

D

delphi_hzj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-06

• #8

多人接受答案了。