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

← →
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;

>А вторая строка в том примере убирала шапку формы
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).

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

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