Минимизация окна

← →
MixerPro (2002-10-18 16:57) [0]

Вопрос короткий и простой.
Есть главная форма Form1.
Cоздается форма Form2 (FormStyle=fsStayOnTop) Form2.Show;
Теперь Form2 лежит поверх Form1.
Далее я минимизирую Form1, и естественно минимизируется Form2.
Вопрос:
Надо чтобы при минимизации Form1 - форма2 (Form2) оставалась не свернутой!
Очень надо!

← →
Андрей Прокофьев (2002-10-18 17:03) [1]

xF := TForm.Create(Self);
xF.ParentWindow := GetDeskTopWindow;
xf.FormStyle := fsStayOnTop;
xf.Show;

← →
Ученик (2002-10-18 17:12) [2]

procedure WMSysCommand(var Message : TWMSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSysCommand(var Message : TWMSysCommand);
begin
if (Message.CmdType and $FFF0) = SC_MINIMIZE then
ShowWindow(Handle, SW_MINIMIZE)
else
inherited
end;

← →
Андрей Прокофьев (2002-10-18 17:14) [3]

Я, похоже, чушь написал. Оно, конечно, работает, но плохо
:((((

← →
MixerPro (2002-10-21 12:41) [4]

Немного переделал, но помогло. Спасибо.

Минимизация окна Найти похожие ветки