Де формы StayOnTop, с одной всё понятно, но две

← →
Darkwin © (2002-11-29 16:20) [0]

Чтобы форма была всегда наверху делаем так:

private procedure WMWINDOWPOSCHANGING(var msg: TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING; { Private declarations } .... .... .... procedure TForm3.WMWINDOWPOSCHANGING(var msg: TWMWINDOWPOSCHANGING); begin SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_SHOWWINDOW); inherited; end;
или так:
procedure TForm3.FormShow(Sender: TObject); begin SetForegroundWindow(Handle); SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE) end; procedure TForm3.FormDeactivate(Sender: TObject); begin SetForegroundWindow(Handle); SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE) end;
в обоих случаях всё прекрасно работает, но мне надо две, чтобы формы были StayOnTop.
В первом случае происходит зацикливание на обработчиках сообщений. Во втором вроде всё нормально, но при открытии третьей формы (не StayOnTop), она всегда не активная, даже капшион серый.
Как можно решить такую проблему?

← →
Darkwin © (2002-11-29 16:50) [1]

Что никому не интересно?

← →
Andrey007 (2002-11-29 17:03) [2]

А что должно быть интересно? У меня в проекте так и есть - главная форма fsNormal, а остальные fsStayOnTop.

← →
Darkwin © (2002-11-29 17:05) [3]

И как это у тебя реализовано?

← →
Andrey007 (2002-11-29 17:08) [4]

Эти значения заданы в design-time и в run-time не меняются. А тебе надо эти значения менять в run-time что ли?

нет, если просто установить значение StayOnTop, то после деактивации формы другие приложения будут перекрывать её

← →
Andrey007 (2002-11-29 17:12) [6]

У меня такой проблемы нет, наверное потому, что главная форма развёрнута на весь экран (это требование ЧТЗ на программу).

Де формы StayOnTop, с одной всё понятно, но две - ??? Найти похожие ветки