Минимизация главной формы

← →
Sirruf © (2004-05-07 18:32) [0]

Как сделать так, чтобы при минимизации главной формы сворачивалась только она сама, а остальные формы - нет?

← →
Семен Сорокин © (2004-05-07 18:34) [1]

имхо никак, на то она и главная...
при ее сворачивании сворачивается все приложение.

← →
ASMiD © (2004-05-07 18:35) [2]

А остальные -это какие? Уж не MDIChild-ли

← →
WebErr © (2004-05-07 18:39) [3]

Попробуйте поменять FormStyle в режиме выполнения, может что и получится )))

← →
Sirruf © (2004-05-07 19:33) [4]

У всех форм FormStyle = fsNormal. MDI ни при чем...
WebErr, поменять на что?
Я вот подумал, может создать пустую форму, сделать ее главной, дальше Application.ShowMainForm := False, и тогда можно будет сворачивать каждую форму в отдельности. Но как-то уж корявовато всё это...

← →
Игорь Шевченко © (2004-05-07 19:45) [5]

WebErr © (07.05.04 18:39)

Прежде чем давать глупые советы, я настоятельно рекомендую выяснить вопрос и проверить решение самому.

У тех форм, которые не должны сворачиваться, можно сделать Parent"oм HWND_DESKTOP, например. Правда, от них кнопки на Taskbar появятся, но сворачиватся они не будут :)

Можно просто перекрыть WMSysCommand у главной формы
type TForm1 = class(TForm) Button1: TButton; procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.WMSysCommand(var Message: TWMSysCommand); begin with Message do begin if (CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then WindowState:=wsMinimized else if (CmdType and $FFF0 <> SC_MOVE) or (csDesigning in ComponentState) or (Align = alNone) or (WindowState = wsMinimized) then inherited; if ((CmdType and $FFF0 = SC_MINIMIZE) or (CmdType and $FFF0 = SC_RESTORE)) and not (csDesigning in ComponentState) and (Align <> alNone) then RequestAlign; end; end;

Минимизация главной формы Найти похожие ветки