zoukankan      html  css  js  c++  java
  • delphi 设置多屏幕

    //poScreenCenter时,窗体会显示到主显示器的中央
    MainForm.Position := poScreenCenter;

    function TGAEAMainForm.GetWorkArea(var R : TRect) : Boolean;
    var
    I : Integer;
    begin
    Result := False;
    for I := 0 to Screen.MonitorCount -1 do
    if Screen.Monitors[I].Primary then
    begin
    R := Screen.Monitors[I].WorkareaRect;
    Result := True;
    Break;
    end;
    end;

    procedure TGAEAMainForm.TempInitForm;
    procedure SetFormMonitor(Form:TCustomForm;MonitorIndex:integer);
    begin
    if (MonitorIndex>-1) and (MonitorIndex<Screen.MonitorCount) then //保证屏幕索引在范围内
    begin
    Form.Left := 0;
    Form.Top := 0;
    Form.SetBounds(Screen.Monitors[MonitorIndex].Left + ((Screen.Monitors[MonitorIndex].Width - Form.Width) div 2),Screen.Monitors[MonitorIndex].Top + ((Screen.Monitors[MonitorIndex].Height - Form.Height) div 2),Form.Width, Form.Height);
    end;
    end;
    function GetPriMaryScreenIndex: Integer;
    var
    I : Integer;
    begin
    for I := 0 to Screen.MonitorCount -1 do
    if Screen.Monitors[I].Primary then
    begin
    Result := I;
    Break;
    end;
    end;
    var
    vR: TRect;
    vPrimaryIndex: Integer;
    begin
    vPrimaryIndex := GetPriMaryScreenIndex;
    if vPrimaryIndex <> -1 then
    SetFormMonitor(MainForm, vPrimaryIndex);
    // if GetWorkArea(vR) then
    // begin
    // MainForm.Left := vR.Left;
    // MainForm.Top := vR.Top;
    // end;
    end;

  • 相关阅读:
    chrome的console功能
    vue-cli · Failed to download repo vuejs-templates/webpack: connect ETIMEDOUT 13.229.188.59:443
    let const区别!
    字符串拼接事故!
    git常用的操作命令
    vue项目中利用popstate处理页面返回操作
    Mac下安装nginx并配置SSL实现Https的访问
    浏览器缓存
    HTTP相关知识点
    CORS请求
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/9737136.html
Copyright © 2011-2022 走看看