Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Размеры формы

Автор: Matematik 19.7.2006, 10:16

Как сделать чтобы размеры у формы были на весь экран, т.ж. как при wsMaximized, но при wsNormal, чтобы учитывалась панель пуска и всякие прилипшие к раб столу аськи.

Автор: Romikgy 19.7.2006, 10:22

брать размеры рабочего стола/экрана и по таймеру устанавливать размер формы

Автор: Matematik 19.7.2006, 10:24

Вот размер раб стола мне и нужен, как его получить.

Автор: Mechanic 19.7.2006, 10:26

Код


var Scr: TRect;
..
SystemParametersInfo(SPI_GETWORKAREA,0,@Scr,0);

Ну, так у нас, в Диптауне.. smile

Автор: Matematik 19.7.2006, 10:32

2 Mechanic
Большое спасибо Ж)

Код


procedure TForm1.Timer1Timer(Sender: TObject);
var Scr: TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA,0,@Scr,0);
  Left := Scr.Left+1;
  top  := Scr.Top+1;
  Height := Scr.Bottom-Scr.Top-2;
  Width  := Scr.Right-Scr.Left-2;
  caption := Inttostr(Width)+'/'+Inttostr(Height)
end;

Автор: Yanis 19.7.2006, 11:15

1 строка кода более читаема чем 6 smile

Код

Form1.BoundsRect := Screen.WorkAreaRect;