这是以前论坛上的解决方法:值得参考!
(需要两个窗体,一个在主显示器上,一个打到副显示器)
procedure SetWindowToMonitor(Form: TCustomForm;
//你想操作的窗体
MonitorIndex, //你想要显示窗体的显示
// 器索引， 0为主显示
// 器，1为第二显示器
Left, Top: Integer //窗体在显示器上的位置
);
begin
if not Assigned(Form) then
Exit;
if MonitorIndex >= Screen.MonitorCount then
Exit;
with Screendo
begin
Inc(Left, Monitors[MonitorIndex].Left);
Inc(Top, Monitors[MonitorIndex].Top);
end;
Form.SetBounds(Left, Top, Form.Width, Form.Height);
end;
