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

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

хочу сделать у этой формы тень [D6, D7, WinXP]


Delphi5.01 ©   (2004-12-14 11:49:00) 

Доброе время суток,
Я без проблем могу создать форму с любым контуром (это несколько десяток строк кода), но я хочу сделать у этой формы тень. Как делать тень я тоже разобрал. Но вот сейчас возникла такая проблема.
Я делаю все в следующей последовательности:
1) Я создаю форму заведомо большего контура на 10 пикселов.
2) На форму я рисую все что заслоняет программа на рабочем столе.
3) В середине тень форму, используя маску.
4) Сверху рисую саму форму.
В результате получаю программу на рабочем столе с тенью. Но проблема заключается в том что пользователь может временно минимизировать программу, изменить расположение иконок на рабочем столе и потом восстановить мою программу из TaskBar, и вот тогда возникают траблы. Изображение рабочего стола не совпадает с изображением которое сохранил при запуске программы.
Что делать для решения данной проблемы?
П.С. Если есть возможность частично сделать прозрачным форму то решение есть. Но как ее сделать полностью полу прозрачным я знаю но полностью нет.
Спасибо


Delphi5.01   (2004-12-15 15:00:00) [1]

Проблема заключается в том что я не могу поймать момент деактивизации формы.
Получается только если использую следующий код:
 if (Msg.message<>45057)and(Msg.wParam=1)and(Msg.lParam=0) then
   Application.Minimize;
Но не могу поймать момент когда форма уже минимизирована. Что бы сделать скриншот.


Delphi5.01   (2004-12-14 12:56:00) [2]

Точно не помню, я этот метод пытался использовать несколько недель назад. Были серьезные проблемы, правда не помню какие. Я гляну исходник и скажу.


DVM   (2004-12-14 12:48:00) [3]


> Но это не получается сделать.

Почему?


Delphi5.01   (2004-12-14 12:41:00) [4]

Согласен, но это конкретный случай.
А что если изменение рабочего стола произошло не минимизируя главной формы?
Можно решить проблему если сможем отловить потерю фокуса программы. Но это не получается сделать. А если бы смогли то мы бы минимизировали программу на момент потери фокуса.
Спасибо


DVM   (2004-12-14 12:26:00) [5]


> Что делать для решения данной проблемы?

После минимизации/восстанавливания надо отрисовать все заново.


Наверх

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