[Rom@nEm]

Требуется чтобы при запуске программы главное окно автоматически разворачивалось на весь экран(элементарно максимизировалось). Уточняю это не тот случай когда нужно максимизировать полностью т.е. закрыть даже меню пуск. А просто КАК КНОПКа РАЗВЕРНУТЬ во весь экран?

[M.A.D.M.A.N.]

В свойствах формы WindowState установить в wsmaximized.

[Rom@nEm]

Сообщение от M.A.D.M.A.N.

В свойствах формы WindowState установить в wsmaximized.

Установил!!!!! Не делает. Вот только щас получилось сделал тоже самое тока программно на событии onActivate формы. А хотелось бы просто через свойство. Приложение firemonkey. Нужно зделать так чтобы окно было развернутым и его нельзя было сворачивать. Убрал кнопки из заголовка формы оставил тока кнопку закрытия, но при двойном щелчке в заголовке форма сворачивается.

[M.A.D.M.A.N.]

там какое-то свойство надо настроить из sizeable в Single.

[Rom@nEm]

Сообщение от M.A.D.M.A.N.

там какое-то свойство надо настроить из sizeable в Single.

Свойство BorderStyle уже стоит в dsSingle может это как-то программно запрещается?

[M.A.D.M.A.N.]

Перехват сообщений MW_SYSCOMMAND.

[Rom@nEm]

Сообщение от M.A.D.M.A.N.

Перехват сообщений MW_SYSCOMMAND.

А можно поподробней. можно с примером кода даже?

[M.A.D.M.A.N.]

Код:

procedure mssyscommand (var msg: TWMSYSCOMMAD); message WM_SYSCOMmAND;

[Alegun]

Установил у формы BorderStyle в bsSizeToolWin, а в процедуре клика кнопки WindowState:= wsMaximized; - работает.

[M.A.D.M.A.N.]

По идее надо просто ТулВин. Вроде на *тулвин окошки Alt + Tab не переключает.

[Alegun]

Сообщение от Rom@nEm

...Убрал кнопки из заголовка формы оставил тока кнопку закрытия, но при двойном щелчке в заголовке форма сворачивается.

Можно ещё так это решить (запретить перемещать форму, тогда и туклик на заголовке работать не будет)

Код:

 ...
  private
 procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
 ...

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;

with Message do
   if Result = HTCAPTION then
     Result := HTNOWHERE;
end;