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

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

Zorder форм [D7, WinXP]

Kns ©   (2007-07-25 14:21:00) 

Добрый день есть такая задача - сделать делать чтобы формы приложения всегда были в одном продяке (имею в виду zOrder) в независимоти от того получают они фокус или нет.
Как можно это реализовать?

---

Kns   (2007-07-25 17:51:00) [1]

Ага SWP_NOSENDCHANGING!
Спасиб теперь уже получилось почти то что нужно.

---

DVM   (2007-07-25 17:34:00) [2]

> SetWindowPos, т.е. в этом случае нельзя вызвать SetWindowPos

можно вызывать, но поставить флаг соответствующий.

Обработку WM_WINDOWPOSCHANGING надо производить ВО ВСЕХ формах

---

Kns   (2007-07-25 16:48:00) [3]

Ну кое в чем ошибся WM_WINDOWPOSCHANGING передается какрас перед вызовом SetWindowPos, т.е. в этом случае нельзя вызвать SetWindowPos нужно менять данные в структуре WINDOWPOS.
в идеале вроде так
procedure TForm2.ChangeOrder(var msg:TMsg);
var ps:^WINDOWPOS;
begin
ps:=Pointer(msg.wParam);
ps.hwndInsertAfter:=GetNextWindow(Form1.Handle,GW_HWNDPREV);
end;

Но это почему то тоже не помогает.

---

Kns   (2007-07-25 16:17:00) [4]

Что-то не совсем выходит.
Сделал так : создал проект из трех форм, предположим что Form2 должна всегда лежать за Form1.
тогда в Form2 обявляю

 public
   { Public declarations }
   procedure ChangeOrder(var msg:TMsg); message WM_WINDOWPOSCHANGING;
 end;

procedure TForm2.ChangeOrder(var msg:TMsg);
var ps:^WINDOWPOS;
begin
ps:=Pointer(msg.wParam);
SetWindowPos(ps.hwnd,GetNextWindow(Form1.Handle,GW_HWNDPREV),ps.x,ps.y,ps.cx,ps. cy ,ps.flags);
end;

При таскании form2 начинает все плыть на всех остальных формах и она всерано оказыватся поверх.

---

DVM   (2007-07-25 14:31:00) [5]

> Как можно это реализовать?

WM_WINDOWPOSCHANGING + SetWindowPos() + hWndInsertAfter

---

Наверх