Fullscreen

[Privateer3000]

Moin Leuts,

ich habe folgende procedure verwendet um ein Form2 auf Fullscreen zu ziehen:

Code:

Procedure TForm2.WMGetMinMaxInfo(Var msg: TWMGetMinMaxInfo);
  Begin
    inherited;
    With msg.MinMaxInfo^.ptMaxTrackSize Do Begin
      X := GetDeviceCaps( Canvas.handle, HORZRES ) + 
                        (Width - ClientWidth);
      Y := GetDeviceCaps( Canvas.handle, VERTRES ) + 
                        (Height - ClientHeight);
    End;
End;

Das Problem ist, dieses Form läuft immer auf dem 2.Bildschirm.
Ist am 2.VGA Port ein Monitor: alles Banane.
Ist am 2. VGA Port ein Fernseher klappt es nicht.
Hat jemand ne Ahnung??