让窗体自动适应桌面大小 为何多了上下一截到屏幕外了
procedure TForm_main.AutoAdaptForm(Sender: TObject) ;
var
lpRect:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@lpRect,0);
Form_main.Left := lpRect.left;
Form_main. := lpRect.;
Form_main.width := lpRect.right - lpRect.left;
Form_main.Height := lpRect.bottom - lpRect.;
Form_main.Update ;
end;
直接设置align:=alClient;