[code lang=”delphi”]procedure TForm1.FormCreate(Sender: TObject);
var
NewRect: Trect;
begin
// See SystemParametersInfo in the Win32.hlp file for other options
SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@NewRect), 0);
Top := NewRect.Top;
Left := NewRect.Left;
Height := NewRect.Bottom – NewRect.Top + 1;
Width := NewRect.Right – NewRect.Left + 1;
end;
[/code]
[tags]Delphi, Forms[/tags]
0 Kommentare zu “Align Form To Workspace”