Текущий архив: 2002.10.31;
Скачать: 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 вся ветка
Текущий архив: 2002.10.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
