フォームの位置を画面の右上隅として取得する方法は？

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;