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

Быть с верху!   Найти похожие ветки 

← →
GooG-NTS   (2004-01-06 04:44) [0]

Всем привет!
------------

Народ хелп!
Мне срчно нужно узнать как сделать форму которая будет постоянно сверху всех остальных окон!(и сверху таск бара тоже!!!).

-----------
Спасибо!

---

← →
Леприкон ©   (2004-01-06 07:12) [1]

FormStyle:=fsStayOnTop;

---

← →
NAlexey ©   (2004-01-06 08:26) [2]

>Леприкон ©
Скорее всего этого не хватит. Ниразу не пробывал, но мне кажется что сработает вариант с ловушкой. Т.е:
WHook := SetWindowsHookEx(WH_CALLWNDPROC, @CallWndProcHook, 0, GetCurrentThreadId);
А там уже ловить:

if wParam = WM_WINDOWPOSCHANGING then
with PWindowPos(lParam)^ do
if hwnd = MyForm.Handle and not
((hwndInsertAfter = HWND_TOP) or (hwndInsertAfter = HWND_TOPMOST))
then begin
SetWindowPos(MyForm.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOSIZE or SWP_NOMOVE or SWP_NOSENDCHANGING);
Result := 0;
end;
end;


---

← →
GooG-NTS   (2004-01-06 08:38) [3]

Надо попробовать!

---

← →
имя   (2004-01-06 22:12) [4]

Удалено модератором

---

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

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



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