Form auf sekundären Bildschirm platzieren.

[bra_parametrix]

Ich möchte ein Form auf dem sekundären Bildschirm platzieren. Der Hauptbildschirm (links) hat 1920 x 1200 Pixel, der sekundäre (rechts) 1280 x 1024.

Ich rufe das Form aus der Anwendung, die auf dem sekundären Bildschirm läuft auf. Wenn ich diesem Form per SetBounds einen Platz auf dem 2. Bildschirm zuweise (top = 200, left = 2200) erwarte ich es auf dem rechten Bildschirm. Stattdessen ist es auf dem linken Bildschirm am rechten Rand.

Hat jemand eine Idee, wie ich das Form auf den rechten Bildschirm "setzen" kann?

Vielen Dank und Grüsse

[bernerbaer]

ungetestet:

Delphi-Quellcode:

 
if Screen.MonitorCount > 1 then
   Form2.Left:=Screen.Monitors[1].Left
else
   Form2.Left:= 0;

wobei hier vorher natürlich eine Überprüfung der Anordnung und Konfiguration der Monitore gemacht werden sollte, sofern das Programm auf mehr als einem PC läuft. Monitore können unterschiedlich angeordnet werden (links, rechts, oben, unten) oder so konfiguriert werden, dass auf mehreren Monitore das gleiche angezeigt wird.

[himitsu]

Gibt im D2006 schon irgendwas davon?

TForm.DefaultMonitor (vor dem Anzeigen setzen)
TForm.MakeFullyVisible (oder nach dem Anzeigen aufrufen)

Dort kannst du die Position (WorkingArea) der Monitore auslesen, falls du es manuell setzen willst:
Screen.MonitorCount
Screen.Monitors (Monitor.WorkareaRect)

[bra_parametrix]

Vielen Dank.

Ich habe den Fehler gefunden. Die Funktion, die testet ob das neue Form nicht über den Bildschirm raus geht, hat Screen.Width anstatt Screen.DesktopWidth verwendet.

[Dalai]

Zitat von bra_parametrix:

Die Funktion, die testet ob das neue Form nicht über den Bildschirm raus geht, hat Screen.Width anstatt Screen.DesktopWidth verwendet.

Schreibst du von mir ab? Im Ernst: das kommt mir bekannt vor, hab einen sehr ähnlichen Fehler in einem meiner Programme gemacht, nur dass es nicht um ein Formular ging sondern um ein TPopupMenu.

MfG Dalai

[himitsu]

Zitat von Dalai:

Schreibst du von mir ab? ........

Ich sollte mir morgen mal einen Code ansehn, den ich letzen oder vorletzen Monat verbrockt hab und wo es auch um sowas ging.

Kann mich aber nicht an DesktopWidth erinnern ... nicht daß dort auch ein With drin steckt.