Screen.Width bei mehreren Bildschirmen

[sakura]

Es gibt insgesamt drei Möglichkeiten:

Delphi-Quellcode:

  with ListBox1.Items do
  begin
    Add(IntToStr(Screen.Width)            + ':' + IntToStr(Screen.Height));
    Add(IntToStr(Screen.WorkAreaWidth)    + ':' + IntToStr(Screen.WorkAreaHeight));
    Add(IntToStr(Screen.DesktopWidth)     + ':' + IntToStr(Screen.DesktopHeight));
  end;

Zeile 3: Aktueller Monitor (gesamt)
Zeile 4: Aktueller Monitor (Arbeitsfläche, ohne Taskbars)
Zeile 5: Alle Monitore zusammen (unterschiedliche Auflösungen sind nicht berücksichtigt)

......