Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c