Скачать: CL | DM;

Не реагировала на команду   Найти похожие ветки 

← →
Пастор   (2002-07-22 09:11) [0]

Как на чистом 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;

---

← →
Пастор   (2002-07-22 21:37) [1]

а в ответ тишина...

---

← →
Proton ©   (2002-07-23 01:42) [2]

WM_WINDOWPOSCHANGING :
with PWINDOWPOS(wp)^ do
begin
flags := flags or SWP_SHOWWINDOW and not SWP_HIDEWINDOW;
Result:=0;
end;

---

← →
Пастор   (2002-07-23 10:43) [3]

это тоже самое..

---

← →
Proton ©   (2002-07-23 13:53) [4]

попробывал ?
with PWINDOWPOS(wp)^ do
надо заменть на
with PWINDOWPOS(lparam)^ do

---

← →
pierre ©   (2002-07-23 15:44) [5]

Обрабатываешь мессадж на сворачивание разворачиванием!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c