[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.

[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;