Czy aplikacja jest otwarta na pierwszym monitorze, sprawdzisz sprawdzając zmienną:
monitor.Primary
Przykładowo:
if monitor.Primary then
{tu ustawiasz ekran na monitor pierwszy}
else
{tu ustawiasz ekran na monitor drugi}
var
MBounds, foldbounds : TRect;
Rozmiary ekranów pobierzesz np poprzez:
MBounds := Screen.monitors[0].BoundsRect; //monitor1
MBounds := Screen.monitors[1].BoundsRect; //monitor2
Ustawienie na pełny ekran:
with form1 do
begin
Foldbounds := Form1.BoundsRect;
BorderIcons := [];
BorderStyle := bsNone;
SetBounds(MBounds.Left, MBounds.Top, (MBounds.Right-MBounds.Left),(MBounds.Bottom-MBounds.Top));
end;
Powrót z pełnego ekranu:
with form1 do
begin
BorderStyle := bsSizeable;
BorderIcons := [];
BorderIcons := [biSystemMenu,biMinimize,biMaximize];
SetBounds(foldbounds.Left, foldbounds.Top, (foldbounds.Right-foldbounds.Left),(foldbounds.Bottom-foldbounds.Top));
form1.Refresh;
end;
Pozdrawiam