Прозрачная форма

← →
Simon (2004-10-19 05:10) [0]

Как сделать прозрачную?
Я где-то видел что-то типа:

var
Form2: TForm2;
begin
Form2:= TForm2.Create(self);
form2.Color:= form1.Color; //на form2 лежит Shape
form2.Shape1.Brush.Color:= form1.Color;
form2.Show;
end;

← →
Алхимик © (2004-10-19 09:58) [1]

Transparent
TransparentColor
AlphaBlend
AlphaBlendValue

← →
-=SS=- © (2004-10-19 10:02) [2]

Да AlphaBlend:= True;
AlphaBlendValue := 70;

Но работает только под WInXP

← →
Алхимик © (2004-10-19 10:11) [3]

> [2] -=SS=- © (19.10.04 10:02)
> Да AlphaBlend:= True;
> AlphaBlendValue := 70;
>
> Но работает только под WInXP

Спорнём на пончик что не только под WinXP?

← →
ssk © (2004-10-19 10:15) [4]

>Алхимик
>Спорнём на пончик что не только под WinXP

ты хочешь сказать, что под Win98 альфабленд работает? :-)

← →
Настенька (2004-10-19 10:41) [5]

у меня под XP все прекрасно работает, наверное, нужен ServicePack 1

← →
Dyn`alt © (2004-10-19 11:09) [6]

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=30

← →
Sphinx (2004-10-19 11:09) [7]

> у меня под XP все прекрасно работает, наверное, нужен ServicePack
> 1

Если все прекрасно работает, зачем же тогда SP1? :)

> ты хочешь сказать, что под Win98 альфабленд работает? :-)

Под ME и 2000 работает.
А это и есть "не только под WinXP"

>> Алхимик © (19.10.04 10:11) [3]
>> Спорнём на пончик что не только под WinXP?

Ну не только под WiXP
GetWindowsVersion(major, minor);
if ((major>= 5) если выполняется это условие

Прозрачная форма Найти похожие ветки