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

时间:2016-01-03 12:51:59   收藏:0   阅读:877

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;

原文:http://www.cnblogs.com/Values/p/5095907.html

评论(0
© 2014 bubuko.com 版权所有 - 联系我们:wmxa8@hotmail.com
打开技术之扣,分享程序人生!