화면의 오른쪽 상단 모서리로 양식 위치를 얻는 방법?

Question

양식을 데스크탑의 오른쪽 구석에 보여줘야합니다. 나에게 길을 제안 해주세요.

여러 방법을 시도했지만 실패했습니다.

Answer 1

여기서 주요 복잡 요인은 다중 모니터입니다. 여러 대의 모니터를 사용하는 경우 바탕 화면에 위쪽과 오른쪽이 모두 표시되지 않을 수 있습니다. 이 경우에 당신이 생각할 수있는 것은 가장 오른쪽 모니터의 상단 일 것입니다.

이처럼 수행

procedure MoveFormToTopOfRightmostMonitor(Form: TForm); 
var 
    i: Integer; 
    Monitor, RightMostMonitor: TMonitor; 
begin 
    RightMostMonitor := Screen.Monitors[0]; 
    for i := 1 to Screen.MonitorCount-1 do 
    begin 
    Monitor := Screen.Monitors[i]; 
    if Monitor.Left+Monitor.Width > RightMostMonitor.Left+RightMostMonitor.Width then 
     Monitor := RightMostMonitor; 
    end; 
    Form.Left := Monitor.Left+Monitor.Width-Form.Left; 
    Form.Top := Monitor.Top; 
end; 

Answer 2

난 그냥 코드에서 오류가 고정이

procedure TmainForm.FormCreate(Sender: TObject); 
begin 
mainForm.left:= screen.Monitors[Screen.MonitorCount-1].Width-mainForm.Width; 
end;