对,通过Screen.Monitors可以获得不同显示器的坐标,例如:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to Screen.MonitorCount - 1 do
begin
ListBox1.Items.Add(IntToStr(Screen.Monitors[i].Left) + '*'
+ IntToStr(Screen.Monitors[i].Width));
end;
end;