Delphi下 多显示器,将窗体显示于第二个显示器

Form1.MakeFullyVisible(screen.Monitors[1]);

with Form1 do begin

{ Position form }

Top := 0 ;

Left := 0 ;

{ Go full screen}

BorderStyle := bsNone ;

WindowState := wsmaximized;

ClientWidth := Screen.Width ;

ClientHeight := Screen.Height;

Refresh;

SetForegroundWindow(Handle) ;

SetActiveWindow(Application.Handle) ;

end;