如何建立透明Label(100分)

N

netfun2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #1

我的操作系统是WIN2000，使用了默认的桌面背景（没任何图片，兰色？）
我建立了一个透明的Form使其能够通透桌面，我在该Form上设置了一个Label,但Label的底色确实不透明的。
请问，如何设置透明LABEL？不是把LABEL的属性TransParents设置成True,设置了也没用。

netfun2000

 

天

天真男孩

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #2

试试RXLIB里的

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #3

Label的transparent是设置透明的
form要这样两条语句就够了!
brush.sryle:=bsClear;
Inherited;

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #4

樓上的就行了

 

N

netfun2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #5

to cwmdelpher:
brush.sryle:=bsClear;
Inherited;
请问，在写到哪里？

谢谢。

我把这个写到了onshow里面，基本能够用。
加在这里可以吗？

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #6

to 楼主:
在Win2K下是窗体透明有更正统的做法,单用bsClear刚显示时是透明的,但一拖动就玩完.
应该去设置AlphaBlend为True,AlphaBlendValue为透明度255为不透明,0为完全透明.这样设置后Label的背景颜色只要跟窗体颜色一致,自然也就透明了.

 

N

netfun2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #7

正如LeeChange所言，是有这个毛病。
LeeChange你那里有这个代码吗？

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #8

都跟你说了,设置Form的AlphaBlend和AlphaBlendValue属性就行了.(Delphi6或7).
如果用的是D5,就说一声,我给你抄Borland的代码.

 

N

netfun2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #9

To LeeChange:
我把AlphaBlend改成了True
并设置AlphaBlendValue设置成了0
Label的颜色为那个为Pare*
但，却看不到了Label的文字了。

另外，使用这个画出的FORM有动画的感觉，就是显示的时候。

 

N

netfun2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #10

多人接受答案了。