![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Прозрачная форма. [D5, Win95/98, Win2k]
BJValentine © (2002-07-05 18:38:00)Ребята, помогите! Как сделать так, чтоб форма стала прозрачной? Очень нужно, я задавал уже этот вопрос и получил на него класный ответ, да вот только потерял я этот ответ и сейчас маюсь. Помогите, плиз!
BJValentine (2002-07-05 21:49:00) [1]Pat, большое спасибо, это именно тот ответ, который я хотел увидеть. Остальным - спасибо за внимание.
asmer (2002-07-05 21:18:00) [2]для обрезания :) окна во всех виндах работает функция 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 (2002-07-05 20:55:00) [3]>А вторая строка в том примере убирала шапку формы
form1.BorderStyle:=bsNone
Pat (2002-07-05 20:47:00) [4]Или так: правда менее красиво...
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Brush.Style:=bsClear
end;
Pat (2002-07-05 20:43:00) [5]BJValentine © (05.07.02 20:08)
Работай с регионами
BJValentine (2002-07-05 20:08:00) [6]Нет. Прикол состоит в том, чтобы всё было видно, то что лежит на форме, а самой формы - нет.
Skywalker (2002-07-05 19:58:00) [7]Есть такая фишка как Alphablend в D6, которая делает форму прозрачной, но не только форму, а также все элементы формы (кнопки панели и т.д.). Ты это имеешь ввиду?
BJValentine (2002-07-05 19:56:00) [8]Да ребята, нет же! В том примере было всего одно свойство класса TForm и ему чего то присваивали! Всего одна строка! А вторая строка в том примере убирала шапку формы.
^Sanya (2002-07-05 18:46:00) [9]Если в 2K или XP,то в D6 етсь AlphaBlend и AlphaBlendValue.
А для остальных случаев смотри: http://www.delphikingdom.com/treasury/samples.htm#link10
Skier (2002-07-05 18:40:00) [10]>BJValentine
Может здесь ?
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1020077817&n=2