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

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

Как вывести окно с прозрачным цветом. [Delphi]


Nikfel ©   (2008-03-20 14:36:00) 

Подскажите, пожалуйста. Без кол можно было просто задавать свойство transparent=true и указывать какой color будет прозрачным. А на кол так и не смог разобраться как это делается, но есть одна версия: наверно надо выбрать transparent=true и тогда вся форма будет прозрачной, но при перемещении будет оставаться прежний фон, а значит нужно каким-то образом отловить перемещение окна программы и вывести то, что находится под окном, но если я прав то, тогда как мне это сделать. Заранее спасибо.


Фйцу   (2009-05-30 22:34:00) [1]

Дмитрий К спасибо тебе огромное


Nikfel   (2008-05-07 20:12:00) [2]

Спасибо, попробую.


Дмитрий К   (2008-05-04 19:30:00) [3]

 Form.ExStyle := Form.ExStyle or WS_EX_LAYERED;
 SetLayeredWindowAttributes(Form.Handle, TransparentColor, 200, LWA_COLORKEY or LWA_ALPHA);


Nikfel   (2008-05-04 19:01:00) [4]

Код работает, но когда задаешь AlphaBlend=200, то становится прозрачный цвет снова видимым, а окно частично прозрачное. Как сделать сохранение прозрачности цвета и прозрачность окна вместе, а то ни как не могу разобрать.Подскажите пожалуйста.


Дмитрий К   (2008-03-20 18:03:00) [5]

 Form.ExStyle := Form.ExStyle or WS_EX_LAYERED;
 SetLayeredWindowAttributes(Form.Handle, TransparentColor, 0, LWA_COLORKEY);


Наверх

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