Zwei Forms - Zwei Monitore

[Bummi]

Das wäre ein Beispiel für eine Zentrierte Ausgabe auf dem ersten nicht primären Monitor.

Delphi-Quellcode:

var
 i:Integer;
begin
  if Screen.MonitorCount > 1 then
    begin
       for i := 0 to Screen.MonitorCount-1 do
        begin
         if not Screen.Monitors[i].Primary then
            begin
              Left := Screen.Monitors[i].BoundsRect.Left + ((Screen.Monitors[i].BoundsRect.Right - Screen.Monitors[i].BoundsRect.Left) - Width) div 2;
              Top := Screen.Monitors[i].BoundsRect.Top + ((Screen.Monitors[i].BoundsRect.Bottom - Screen.Monitors[i].BoundsRect.Top) - Height) div 2;

              break;
            end;
        end;
    end;
end;