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;

posted on 2016-01-03 11:06  Values  阅读(805)  评论(0编辑  收藏  举报