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

Как развернуть форму на весь экран?
Какой командой?
Form1.....?

Form1.WindowState:=wsMaximized;

nekto550
ну если вообще на весь то можно ещё так

 with Form1 do
   begin
     WindowState := wsMaximized;
     BorderStyle := bsNone;
   end;

А если у меня BorderStyle в None, а форму развернуть надо не на весь экран, а как обычную программу, с таскбаром внизу...

Цитата Алексей @ 17.10.08, 14:35

А если у меня BorderStyle в None, а форму развернуть надо не на весь экран, а как обычную программу, с таскбаром внизу...

тогда вручную можно изменять свойства TForm.Height, TForm.Width

Цитата oneday @ 17.10.08, 20:11

тогда вручную можно изменять свойства TForm.Height, TForm.Width

при этом необходимо узнавать разрешение экрана пользователя, и изменять Height и Width по отнешению с разрешением экрана, так как форма может просто не влезть в рабочий стол. (у самого такое было )

Цитата

при этом необходимо узнавать разрешение экрана пользователя, и изменять Height и Width по отнешению с разрешением экрана, так как форма может просто не влезть в рабочий стол.

правильней узнавать не разрешение экрана, а размеры рабочей области (appbar'ы откушают ведь какую то область).

var rWorkArea: TRect;
бегин
SystemParametersInfo(SPI_GETWORKAREA, 0, @rWorkArea, 0);
// rWorkArea - прямоугольник рабочей области для окон

Спасибо!
сделал так:

      SystemParametersInfo(SPI_GETWORKAREA, 0, @rWorkArea, 0);
      Main.WindowState:=wsMaximized;
      Main.Height:=rWorkArea.Bottom;

всё замечательно работает)

Алексей
не совсем верно, нужно ведь учесть и ширину (например бар из висты будет мешать, или панель офиса внешнаяя). Возвращаемый Trect и есть доступная область - rect.left - слева, rect.top - сверху, rect.bottom - нижняя часть, но не высота формы!