기본 폼을 만드는 방법 2nd 모니터

Question

저는 기본 vcl 응용 프로그램을 만들고 기본 폼이 항상 첫 번째 모니터에 나타나는 응용 프로그램을 실행할 때 델파이 10을 사용하고 두 개의 모니터를 사용합니다. 두 번째 모니터는 기본적으로?

는 IDE 또는 속성 또는 코드에서이 될 수있다 옵션

감사

Answer 1

TForm은 기본적으로 dmActiveForm로 설정되어 DefaultMonitor 속성이 있습니다. Form이 활성화되어 있지 않으면 기본 모니터가 사용됩니다. 그러나 DefaultMonitor을 두 번째 모니터에 구체적으로 설정할 방법이 없습니다.

TForm도 Monitor 속성을 가지고 있지만 읽기 전용입니다.

그래서, 당신은 다음 글로벌 TScreen.Monitors[] 목록에서 원하는 모니터를 찾은 수, 특정 모니터에 TForm을 표시하려면 다음 중 하나를 수동으로 X 폼의 Left/Top 속성을 설정

1. /Y 좌표는 모니터의 BoundsRect 또는 WorkareaRect 속성 범위 내에 있습니다.

2. 모니터를 양식의 공개 MakeFullyVisible() 메소드에 전달하십시오.

Answer 2

나는 1600px 너비의 모니터 두 개를 가지고 있습니다. 내 기본 모니터가 오른쪽에 있으므로 왼쪽에 양식을 넣으려면 그의 Left 속성에 음수 값을 전달해야합니다.

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    // (3200/2 = + 1600) * -1 = -1600 
    Left := (Screen.DesktopWidth div 2) * -1; 
end; 

결과는 내 보조 모니터의 왼쪽에있는 가장 의미 -1600입니다.

또한 Screen.Monitors[i].Left이 코드 같은 것을 호출하여 각 모니터의 "가장 왼쪽"위치를 얻을 수 있습니다 :

procedure TForm1.Button1Click(Sender: TObject); 
var 
    I: Integer; 
    lMens: string; 
begin 
    lMens := ''; 
    for I := 0 to Screen.MonitorCount - 1 do 
    begin 
    lMens := lMens + ' | ' 
      + Format('%d - Left = %d', [i, Screen.Monitors[i].Left]) 
    end; 
    ShowMessage(lMens); 
end; 

내가 그 도움의 당신을 바랍니다.