Окно поверх всех окон

← →
webpauk (2004-05-11 15:25) [0]

SetWindowPos(wnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); - годится только для главной формы

← →
webpauk (2004-05-11 15:27) [1]

а для неглавной?
какие будут мнения?

← →
webpauk (2004-05-11 15:37) [2]

FormStyle:=fsStayOnTop - тоже не годится

← →
WebErr © (2004-05-11 15:46) [3]

> webpauk (11.05.04 15:37) [2]

Почему?

← →
webpauk (2004-05-11 15:47) [4]

а ты попробуй

← →
WebErr © (2004-05-11 15:51) [5]

Вы пробуете MDIChild загнать в StayOnTop? :)

← →
webpauk (2004-05-11 15:57) [6]

какой MDIChild?
formstyle = (fsMDIChild, fsMDIForm, fsNormal, fsStayOnTop)
можно только что-либо одно

MainForm устанавливается в StayOnTop, остальные формы - нет

← →
Sur © (2004-05-11 15:58) [7]

SetForegroundWindow(Handle) или
BringWindowToTop(Handle)

← →
ssk © (2004-05-11 16:14) [8]

SetWindowPos(handle, hwnd_topmost, 0, 0, 0, 0, swp_nomove or swp_nosize);

← →
webpauk (2004-05-11 16:17) [9]

>ssk
ну я же в начале уже говрил, что это не канает для второстепенных окон. Проверь прежде чем советовать

ок, тогда давай так попробуй:

procedure SetAsMainForm(Form: TForm);
var
P: Pointer;
begin
P:=@Application.Mainform;
Pointer(P^):=Form;
end;

и в OnShow нужной формы выполни этот код

а за этой процедурой сразу и SetWindowPos(handle, hwnd_topmost, 0, 0, 0, 0, swp_nomove or swp_nosize);

З.Ы. у меня работает

← →
webpauk (2004-05-11 16:49) [12]

>ssk спсб

webpauk (11.05.04 16:17)

Для того, чтобы это работало для неглавной формы, форма должна иметь Parent HWND_DESKTOP и иметь стиль WS_POPUP. Все это задается в CreateParams у формы.

ЗЫ: Я пробовал.

Окно поверх всех окон Найти похожие ветки