Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Прозрачная форма. [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


Наверх

Титульная страница Поиск, карта сайта Написать письмо