| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Минимизация окна [D5, Win95/98, Win2k]
MixerPro © (2002-10-18 16:57:00)Вопрос короткий и простой.
Есть главная форма Form1.
Cоздается форма Form2 (FormStyle=fsStayOnTop) Form2.Show;
Теперь Form2 лежит поверх Form1.
Далее я минимизирую Form1, и естественно минимизируется Form2.
Вопрос:
Надо чтобы при минимизации Form1 - форма2 (Form2) оставалась не свернутой!
Очень надо!
MixerPro (2002-10-21 12:41:00) [1]Немного переделал, но помогло. Спасибо.
Андрей Прокофьев (2002-10-18 17:14:00) [2]Я, похоже, чушь написал. Оно, конечно, работает, но плохо
:((((
Ученик (2002-10-18 17:12:00) [3]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:03:00) [4]xF := TForm.Create(Self);
xF.ParentWindow := GetDeskTopWindow;
xf.FormStyle := fsStayOnTop;
xf.Show;
| |
