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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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;

{/codecitation}

Добавить комментарий