1,183
社区成员
发帖
与我相关
我的任务
分享
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[MonitorIndex].Top + ((Screen.Monitors[MonitorIndex].Height - Form.Height) div 2),
Form.Width, Form.Height);
end;
end;
之后要显示哪个窗体在哪个屏幕调一下函数就可以了。
另第三方控件 picshow410 ,可以助你多屏编程。