如何獲得表格位置作爲屏幕的右上角？

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;