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

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

← →
BJValentine ©   (2002-07-05 18:38) [0]

Ребята, помогите! Как сделать так, чтоб форма стала прозрачной? Очень нужно, я задавал уже этот вопрос и получил на него класный ответ, да вот только потерял я этот ответ и сейчас маюсь. Помогите, плиз!

---

← →
Skier ©   (2002-07-05 18:40) [1]

>BJValentine
Может здесь ?
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1020077817&n=2

---

← →
^Sanya   (2002-07-05 18:46) [2]

Если в 2K или XP,то в D6 етсь AlphaBlend и AlphaBlendValue.
А для остальных случаев смотри: http://www.delphikingdom.com/treasury/samples.htm#link10

---

← →
BJValentine ©   (2002-07-05 19:56) [3]

Да ребята, нет же! В том примере было всего одно свойство класса TForm и ему чего то присваивали! Всего одна строка! А вторая строка в том примере убирала шапку формы.

---

← →
Skywalker ©   (2002-07-05 19:58) [4]

Есть такая фишка как Alphablend в D6, которая делает форму прозрачной, но не только форму, а также все элементы формы (кнопки панели и т.д.). Ты это имеешь ввиду?

---

← →
BJValentine ©   (2002-07-05 20:08) [5]

Нет. Прикол состоит в том, чтобы всё было видно, то что лежит на форме, а самой формы - нет.

---

← →
Pat ©   (2002-07-05 20:43) [6]

BJValentine © (05.07.02 20:08)
Работай с регионами

---

← →
Pat ©   (2002-07-05 20:47) [7]

Или так: правда менее красиво...

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Brush.Style:=bsClear
end;


---

← →
Pat ©   (2002-07-05 20:55) [8]

>А вторая строка в том примере убирала шапку формы
form1.BorderStyle:=bsNone

---

← →
asmer   (2002-07-05 21:18) [9]

для обрезания :) окна во всех виндах работает функция SetWindowRgn, которая обрезает окно по заданному региону... регионы можно создать соответствующими функциями (CreateEllipticRgn, например) или конвертировать из т.н. путей с помощью PathToRegion (у путей больше гибкости - например, можно сделать путь по контуру текста)...

для прозрачности в вин2к\винХР:

StyleEx=GetWindowLong(hWnd,GWL_EXSTYLE);
SetWindowLong(hWnd, GWL_EXSTYLE, StyleEx|WS_EX_LAYERED);
SetLayeredWindowAttributes(hWnd, 0, Value, LWA_ALPHA);

hWnd - хендл нужного окна, Value - степень прозрачности (0-255).

---

← →
BJValentine ©   (2002-07-05 21:49) [10]

Pat, большое спасибо, это именно тот ответ, который я хотел увидеть. Остальным - спасибо за внимание.

---

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

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



Память: 0.47 MB
Время: 0.011 c