delphi 副屏最大化和居中等Info

if Screen.MonitorCount>1 then
  begin
    ClientScreenFrm.Top := Screen.Monitors[1].Top;
    ClientScreenFrm.Left := Screen.Monitors[1].Left;
    ClientScreenFrm.Width := Screen.Monitors[1].Width;
    ClientScreenFrm.Height := Screen.Monitors[1].Height;
  end;

 

//弹出的框居中

//使屏幕居中
  ShopInfoSelectFrm.Top := Trunc((Screen.Monitors[0].Height-ShopInfoSelectFrm.Height)/2);
  ShopInfoSelectFrm.Left := Trunc((Screen.Monitors[0].Width-ShopInfoSelectFrm.Width)/2);

 

function OpenShopInfoSelect(var sOpenID,sOpenKey,sShopName,sShopManage,sShopNo:string):Boolean;
begin
  try
    ShopInfoSelectFrm := TShopInfoSelectFrm.Create(nil);
    ShopInfoSelectFrm.ShowModal;
    sOpenID := ShopInfoSelectFrm.g_sSelectOpenID;
    sOpenKey := ShopInfoSelectFrm.g_sSelectOpenKey;
    sShopName := ShopInfoSelectFrm.g_sSelectShopName;
    sShopManage := ShopInfoSelectFrm.g_sSelectShopManage;
    sShopNo := ShopInfoSelectFrm.g_sSelectShopNo;
    Result := ShopInfoSelectFrm.bret;
  finally
    FreeAndNil(ShopInfoSelectFrm);
  end;
end;