Скачать: CL | DM;

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

← →
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? :)

---

← →
DiamondShark ©   (2004-10-19 11:11) [8]

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

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

---

← →
-=SS=- ©   (2004-10-19 12:10) [9]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c