Как программно развернуть форму на весь экран?

[chandrasecar]

Как программно развернуть форму на весь экран? Свойство WindowsState:=wsMaximized раворачивает форму так, что перекрывается панель Виндоуса "Пуск". Как развернуть так, чтобы не перекрывалась панель "Пуск"?

[BOBAH13]

Screen.Monitors[Screen.MonitorFromWindow(TForm.Hand le)].WorkArea - содержим левый, верхний отступы, а так же точки от левого и верхнего до нижнего и правого краев. Строку кода писал сдесь, так что возможны мелкие не дочеты.

[DomiNick]

Свойство WindowsState:=wsMaximized раворачивает форму так, что перекрывается панель Виндоуса "Пуск".

Не должна... У меня нормально срабатывает...
И там буква лишняя: WindowState:=wsMaximized;

[mihali4]

Просто у вас установлено свойство "Отображать панель задач поверх остальных окон", а у него - нет...

[DomiNick]

Потестил...

Нормально разворачивается только если BorderStyle установлен в bsSingle, bsSizeable или bsSizeToolWin...
При bsDialog, bsNone или bsToolWindow панель Виндоуса с кнопкой "Пуск" действительно почему-то перекрывается.....

[Kassatka]

С помощью Windows Api функции ShowWindow, которая дает команды окну разворачиваться, сворачиваться, прятаться, показываться и т.д.
При подключенных
uses Winapi.Windows, Winapi.Messages; //в новых делфях
uses Windows, Messages; //в старых делфях
Пишем

ShowWindow(Form1.Handle,SW_MAXIMIZE);

Эффект как при нажатии на кнопку "развернуть" в правом верхнем меню окна.

Полное описание функции:
Функция ShowWindow
Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Платформа: Win 95/98, Win NT

ShowWindow показывает(или скрывает) окна стандартным способом.Например,функция может свернуть,развернуть или восстановить окно.Функция возвращает 0,если окно было раньше скрыто.Если окно было видимым-возвращает значение, отличное от нуля.

hwnd
дескриптор окна для изменения статуса этого окна.
nCmdShow
Флаги функции,определяющие вид окна:

SW_HIDE = 0
Скрыть окно и активизировать другое окно.
SW_MAXIMIZE = 3
Развернуть окно.
SW_MINIMIZE = 6
Свернуть окно и активизировать следующее окно в Z-порядке(следующее под свернутым окном).
SW_RESTORE = 9
Активизировать и отобразить окно.Если окно свернуто или развернуто,Windows восстанавливает его исходный размер и положение.
SW_SHOW = 5
Активизировать окно.
SW_SHOWMAXIMIZED = 3
Отобразить окно в развернутом виде.
SW_SHOWMINIMIZED = 2
Отобразить окно в свернутом виде.
SW_SHOWMINNOACTIVE = 7
Отобразить окно в свернутом виде.Активное окно остается активным.
SW_SHOWNA = 8
Отобразить окно в текущем состоянии.Активное окно остается активным.
SW_SHOWNOACTIVATE = 4
Отобразить окно в соответствии с последними значениями позиции и размера.Активное окно остается активным.
SW_SHOWNORMAL = 1
Активизировать и отобразить окно.Если окно свернуто или развернуто,Windows восстанавливает его исходный размер и положение.Приложение должно указывать этот флаг при первом отображении окна.

[Kassatka]

Что же касается того, чтоб средствами Делфи занять всю рабочую область текущего монитора (того, на экране которого сейчас наше окно Form1), то здесь так:

with Form1 do begin
    Left:=Screen.WorkAreaRect.Left;
    Top:=Screen.WorkAreaRect.Top;
    Width:=Screen.WorkAreaRect.Width;
    Height:=Screen.WorkAreaRect.Height;
end;

Тем не менее окно хоть и расползется на ту же самую площадь, оно не будет в развернутом режиме (в правом верхнем углу будет находиться кнопка "развернуть", а не "восстановить"), в результате рамка окна будет занимать много места по сравнению с результатом ShowWindow(Form1.Handle,SW_MAXIMIZE ).