第2个回答 2018-11-10
procedure TForm2.FormShow(Sender: TObject);
begin
if screen.MonitorCount>1 then //在第二个显示器显示
form2.MakeFullyVisible(screen.Monitors[1]);
end;
第n个显示器,就写screen.Monitors[n-1])
如果需要全屏设置窗体属性:
form2.position:=poDesigned;
form2.windowState:=wsMaximized;