mehrere Bildschirme und GETWORKAREA

[ManuMF]

Hallo,

ich nutze momentan den Code

Delphi-Quellcode:

SystemParametersInfo(SPI_GETWORKAREA, 0, @rWorkArea, 0); // rWorkArea = TRect

um die Desktopmaße zu erhalten. Offnebar gilt das jedoch nicht für mehrere Bildschirme. Kennt jemand eine Möglichkeit für mehrere Bildschirme (ebenfalls mit Taskbar "abgezogen" ;-) )?

Danke,
ManuMF

[faux]

Hallo!

Wieso benutzt du nicht Forms.Screen und dann DesktopRect, DesktopHeight, DesktopLeft, DesktopTop bzw DesktopWidth?

Grüße
Faux

[teebee]

Hol Dir die einzelnen Monitore entweder mit Screen.Monitors oder mit EnumDisplayMonitors. Über das Handle des Monitors kommst du mitGetMonitorInfoan die Größe der jeweiligen Workarea.

Mit DesktopWidth, etc. werden Taskbars nicht abgezogen.

Edit: Sehe gerade, dass es ab Delphi 6 auch TMonitor.WorkAreaRect gibt. Noch einfacher.

Gruß, teebee

[ManuMF]

Danke. Habe es so gelöst:

Delphi-Quellcode:

  rWorkArea := Screen.Monitors[0].WorkAreaRect;
  if (Screen.MonitorCount > 1) then
    Inc(rWorkArea.Right, Screen.Monitors[1].WorkareaRect.Right);

Gruß,
ManuMF