Timage和Tbevel结合用怎么样消除闪烁？ (50分)

B

bevy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-18

• #1

情况是这样的：我把Tbevel的visible设为false，当鼠标移动到image上时就将visible
设为true，当鼠标离开image时又将bevel设为false，当鼠标进入或者离开的时候，图象
都会闪烁，为什么？怎么样消除？谢谢

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-02

• #2

没有闪烁呀！
我的代码 ：
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Bevel1.Visible :=TRUE;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Bevel1.Visible :=FALSE;
end;

 

G

ghg_qh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #3

bevel是否在image上

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #4

有一点闪烁是正常的刷新。把Image.Stretch设为TRUE可以减少闪烁。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-08

• #5

接受答案了.