Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как поднять окно своего приложения поверх всех окон в win2k. [D5, Win2k]

AVT © (2002-03-13 17:54:00)
Привет всем!

Есть до неприличия избитый вопрос: как поднять окно своего приложения поверх всех окон (win2k). Все примеры из win98 не работают.

Есть просто форма и на ней таймер (1 сек.). В таймере надо просто поднять окно. Перепробовал кучу вариантов, в т.ч.:
1.
procedure TForm1.Timer1Timer(Sender: TObject);
var
OldTimeOut: DWORD;
hWnd: Integer;
begin
hWnd := GetForegroundWindow;
if hWnd = Handle then Exit;
SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @OldTimeOut, 0);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, Pointer(000), 0);
SetForegroundWindow(Handle);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, Pointer(OldTimeOut), 0);
end;
2.
procedure TForm1.CreateParams(var CreateParams: TCreateParams);
begin
inherited CreateParams(CreateParams);

CreateParams.ExStyle := CreateParams.ExStyle or WS_EX_TOPMOST;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.SetFocus;
end;

3.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Application.Restore;
Application.BringToFront;
end;

4.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowWindow(Handle, sw_ShowNormal);
SetWindowPos(Handle, HWND_TOP, 0,0,0,0,
SWP_NOSIZE or SWP_NOMOVE);

end;

5. FormStyle = StayOnTop
и т.д.

1, 3 – мигает кнопка на панели задач;
2, 5 – она всегда наверху (так нельзя);
4 – никаких вообще движений.

Заранее благодарен.

AVT.

AVT (2002-03-14 21:23:00) [1]
Тема закрыта.

AVT (2002-03-14 21:22:00) [2]
Всем большое спасибо за участие в решении моей проблемы.
Вот код который поднимает окно поверх всех остальных в win2k(только если оно перекрыто, а не свернуто).

procedure TForm1.Timer1Timer(Sender: TObject);
var tid, wid: WORD;
h: HWND;
begin
h := GetForegroundWindow;

tid := GetCurrentThreadId;
wid := GetWindowThreadProcessId(h, 0);

if tid <> wid then
begin
AttachThreadInput(wid, tid, TRUE);
Windows.SetFocus(Handle);
AttachThreadInput(wid, tid, FALSE);
end;

end;

Varcom (2002-03-14 11:44:00) [3]
У меня в приложении, для главной формы:
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
SetForegroundWindow(Handle);
Application.Restore;
Наверх выплывет - точно, и не будет все время торчать сверху. Только не могу точно сказать, передастся ли при этом фокус приложению. Попробуй еще AttachThreadInput.

Slonic (2002-03-14 09:59:00) [4]
Опять таки это можно делать по когда угодно менять formstyle fsNormal на fsStayOnTop и наоборот :)))

Slonic (2002-03-14 09:52:00) [5]
а пробывал выстовлять formStyle:=fsStayOnTop :)) всегда помогает :))

Song (2002-03-14 08:36:00) [6]
Ну вот :)) тебе же такой код и посоветовали, откуда ты брал его в своём вопросе, да?
ну смотри:
попробуй добавить ShowWindow(Hadle,SW_RESTORE);
Выполнение этой функции приведёт к тому, что твоё окно выведется в активное (но не обязательно верхнее) окно. Если оно было минимизировано, то оно выйдёт на верх.
А потом попробую делать любое из действий, что тебе уже посоветовали.

Suntechnic (2002-03-14 03:25:00) [7]
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1015610684&n=0

AVT (2002-03-13 22:51:00) [8]
Возможно под win98 это работает, но в win2k нет. Кстати под win98 отлично работает ф-я SetForegroundWindow.
Результат выполнения твоего кода под win2k - всегда висящее окно, как при StayOnTop. А мне надо чтобы окно поднималось поверх всех окон и становилось активным (даже если оно было свернуто). И наоборот, пользователь мог его перекрыть другим окном.

Song (2002-03-13 21:00:00) [9]
Странно, AVT этот код работает у меня всегда хорошо. Приглядись к параметрам SetWindowPos, может у тебя хоть один отличается и уже получаться не будет или наоборот попробуй поиграть с ними, измени может получиться.

AVT (2002-03-13 19:15:00) [10]
Все это я уже пробовал. Не помогает.

Song (2002-03-13 18:07:00) [11]
а на Timer1Timer поставь следующее:
With Form1 Do IF Visible then RePaint else Show;

Song (2002-03-13 18:02:00) [12]
Как делаю я. Но насчёт w2k не уверен.

procedure TForm21.FormShow(Sender: TObject);
Var Rect:TRect;
begin
GetWindowRect(Handle,Rect);
SetWindowPos(Handle,HWND_TOPMOST,Rect.Left,Rect.Top,Rect.Right-Rect.Left,Rect.Bottom-Rect.Top, SWP_SHOWWINDOW);
end;

в 98 100% выводится поверх ВСЕХ окон.

Наверх

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