В 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);

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