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

В Windows 2000 не получается сделать активным окно и вытащить ...   Найти похожие ветки 

← →
maxfiles   (2003-03-20 03:33) [0]

В Windows 2000 не получается сделать активным окно и вытащить его поверх всех окон. Я пытался на некоторое время сделать окно stayontop – оно выпазит поверх, а когда отменяю stayontop – окно опять закапывается в недра предыдущих приложений.

Проверял функции:
activewindow
stayontop
bringtofront <– не работает!!!!

---

← →
AlexVit ©   (2003-03-20 07:34) [1]

Не понятно, в чем сама проблема: когда тебе нужно положить окно сверху - применяй stayontop, не нужно - убирай. Или опиши более подробно, что ты хочешь сделать.

---

← →
DVM ©   (2003-03-20 08:02) [2]

Procedure SwitchToThisWindow(Wnd:hWnd;n:dword); stdcall;external "user32.dll";

---

← →
Smithson ©   (2003-03-20 08:37) [3]

Я делал примерно так


iAppDefEXTStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
ShowWindow(Application.Handle, SW_Show);
if iAppDefEXSTYLE > 0 then I := iAppDefEXSTYLE
else begin
I := I and (not WS_EX_TOOLWINDOW);
I := I or WS_EX_APPWINDOW;
end;
end;
SetWindowLong(Application.Handle, GWL_EXSTYLE, I);
Application.Restore;
Application.MainForm.Show;
Application.MainForm.WindowState := wsNormal;
Application.BringToFront;


---

← →
APX   (2003-03-20 09:34) [4]

используй функцию API
procedure BringWindowToTop(Wnd: HWnd);
где Wnd - это Handle окна

---

← →
mtihonov   (2003-03-21 05:24) [5]

Попробуй SetForegroundWindow(WindowHandle);

---

← →
asf   (2003-03-21 11:42) [6]

в дополнение к apx:
нужно вызвать пару методов (если окно было минимизировано):

ShowWindow(Form.Handle,SW_RESTORE);
BringWindowToTop(Form.Handle);

---

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

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



Память: 0.46 MB
Время: 0.012 c