Delphiのカーソル位置にフォームを開く

Question

私は、モニタの設定にもかかわらず、特定のマウス位置でフォームを開くように配置する方法を理解しようとしています。フォームのOnCreate場合に

、私はこの持っている：私は2台のモニタを有する場合

procedure TSplashScreen.FormCreate(Sender: TObject); 
Var 
    oMousePos: TPoint; 
    nLeft, nTop: Integer; 
begin 
    Scaled := false; 
    PixelsPerInch := Screen.PixelsPerInch; 
    Scaled := true; 
    //Position:=poScreenCenter; 

    //center form for 2nd monitor //zzz 
    if (Screen.MonitorCount > 1) then        //zzz 
    begin 
     GetCursorPos(oMousePos); 
     if (oMousePos.X > Screen.Width) or (oMousePos.X < 0) then 
     begin 
     Self.Position := poDesigned; 
     nLeft := Screen.Monitors[1].Left + Round(Screen.Monitors[1].Width/2) - Round(Self.Width/2); 
     nTop := Screen.Monitors[1].Top + Round(Screen.Monitors[1].Height/2) - Round(Self.Height/2); 
     Self.Left := nLeft; 
     Self.Top := nTop; 
     end; 
    end; 
end; 

を、そして1モニタがプライマリモニタとして設定され、フォームは、マウスカーソルで開きます。

しかし、私は主に2を監視している場合、フォームモニターには常にオープン2.

Answer 1

あなただけのWin32を使用して、マウスカーソルがに現在ある同じモニター上のフォームを配置する場合（VCLのTScreen.MonitorFromPoint()方法でラップされている）API MonitorFromPoint()機能、例えば：

は

procedure TSplashScreen.FormCreate(Sender: TObject); 
var 
    r: TRect; 
begin 
    if (Screen.MonitorCount > 1) then 
    begin 
    r := Screen.MonitorFromPoint(Mouse.CursorPos).WorkareaRect; 
    Self.Position := poDesigned; 
    Self.Left := r.Left + ((r.Width - Width) div 2); 
    Self.Top := r.Top + ((r.Height - Height) div 2); 
    { alternatively: 
    Self.SetBounds(
     r.Left + ((r.Width - Width) div 2), 
     r.Top + ((r.Height - Height) div 2), 
     Width, Height); 
    } 
    end else begin 
    Self.Position := poScreenCenter; 
    end; 
end;