2012 年 4月 9 日随笔档案 - ftwsnow

2012年4月9日

摘要： procedure SetFormMonitor(Form:TCustomForm;MonitorIndex:integer);begin if (MonitorIndex>-1) and (MonitorIndex<Screen.MonitorCount) then{保证屏幕索引在范围内} begin Form.SetBounds( Screen.Monitors[MonitorIndex].Left + ((Screen.Monitors[MonitorIndex].Width - Form.Width) div 2), Screen.Monitors[Mon... 阅读全文

posted @ 2012-04-09 13:18 ftwsnow 阅读(713) 评论(0) 推荐(0)