mehrere Bildschirme und GETWORKAREA

**ManuMF**

Hallo,

ich nutze momentan den Code
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 MSDN-Library durchsuchen

EnumDisplayMonitors. Über das Handle des Monitors kommst du mit MSDN-Library durchsuchen

GetMonitorInfoan 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:

markieren

Delphi-Quellcode:

			  rWorkArea := Screen.Monitors[0].WorkAreaRect;

  if (Screen.MonitorCount > 1) then

    Inc(rWorkArea.Right, Screen.Monitors[1].WorkareaRect.Right);

Gruß,
ManuMF

mehrere Bildschirme und GETWORKAREA

mehrere Bildschirme und GETWORKAREA

Re: mehrere Bildschirme und GETWORKAREA

Re: mehrere Bildschirme und GETWORKAREA

Re: mehrere Bildschirme und GETWORKAREA

Forumregeln

faux Registriert seit: 18. Apr 2004 Ort: Linz 2.044 Beiträge Turbo Delphi für Win32	#2 Re: mehrere Bildschirme und GETWORKAREA 13. Mär 2006, 20:57 Hallo! Wieso benutzt du nicht Forms.Screen und dann DesktopRect, DesktopHeight, DesktopLeft, DesktopTop bzw DesktopWidth? Grüße Faux Faux Manuel Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß. GoTrillian
	Zitat

ManuMF Registriert seit: 11. Jul 2005 1.016 Beiträge Delphi 6 Personal	#4 Re: mehrere Bildschirme und GETWORKAREA 15. Mär 2006, 19:22 Danke. Habe es so gelöst: markieren Delphi-Quellcode: rWorkArea := Screen.Monitors[0].WorkAreaRect; if (Screen.MonitorCount > 1) then Inc(rWorkArea.Right, Screen.Monitors[1].WorkareaRect.Right); Gruß, ManuMF Gruß, ManuMF Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
	Zitat