| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не реагировала на команду
Пастор © (2002-07-22 09:11:00)Как на чистом API сделать, чтобы окно не реагировала на команду "Свернуть все окна"?
На VCL это работает :
procedure TForm1.WMWinPosChanging(var Message: TWMWINDOWPOSCHANGING);
begin
Message.WindowPos^.flags := Message.WindowPos^.flags and not SWP_HIDEWINDOW;
end;
А на API почему то этот трюк не проходит :(
WM_WINDOWPOSCHANGING :
begin
wp := Pointer(lParam);
wp^.flags := wp^.flags or SWP_SHOWWINDOW and not SWP_HIDEWINDOW;
Result:=0;
end;
pierre (2002-07-23 15:44:00) [1]Обрабатываешь мессадж на сворачивание разворачиванием!
Proton (2002-07-23 13:53:00) [2]попробывал ?
with PWINDOWPOS(wp)^ do
надо заменть на
with PWINDOWPOS(lparam)^ do
Пастор (2002-07-23 10:43:00) [3]это тоже самое..
Proton (2002-07-23 01:42:00) [4]WM_WINDOWPOSCHANGING :
with PWINDOWPOS(wp)^ do
begin
flags := flags or SWP_SHOWWINDOW and not SWP_HIDEWINDOW;
Result:=0;
end;
Пастор (2002-07-22 21:37:00) [5]а в ответ тишина...
| |
