Форма во весь экран 2

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Форма во весь экран 2

procedure TForm1.FormShow(Sender: TObject);
var
  r : TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @r,0);
  Form1.SetBounds(r.left, r.top, r.Right - r.left, r.bottom - r.top);
end;