谁知道用delphi怎么控制多个显示器

Question

例如在医院里看病的那些双屏显示功能。在线等…………

Answer 1

delphi的语法我不会,这样写是不是可以呢? 
for i=0;i<Screen.MonitorCount-1 do
begin
 if(Screen.Monitors[i].Primary)  
   ComboBox1.Items.Add(String(Screen.Monitors[i].MonitorNum)+'(Primary)');
 else
   ComboBox1.Items.Add(String(Screen.Monitors[i].MonitorNum));
end;

Answer 2

哦，原来可以有这些方法的。：）但要做出来还得有一段时间呢，如果那位兄弟姐妹做过这方面的贴出一些代码出来那就感激不尽了。
先谢谢tiegerium(/*唐秀观*/)的大力支持。

Answer 3

有了上面代码枚举系统的显卡后,可以用下面的代码测试了:
TForm1.Button1Click(Sender:TObject)
Var
   r:TRect;
begen
   if(ComboBox1.ItemIndex>=0)
   begin
      r = Screen.Monitors[ComboBox1.ItemIndex].WorkareaRect;
      Left = r.Left + (r.Width() - Width) / 2;
      Top = r.Top + (r.Height() - Height) / 2;
   end;
end;
//声明:我对Delphi的语法一点都不了解,这是我从C++Builder翻过来的。