Monitore und dessen Positionen anzeigen (Bildschirmanordnung)

[dGeek]

Ich interessiere mich momentan dafür wie man sich seine Monitore, dessen Namen und Positionen anzeigen lassen kann.
Also die Bildschirmanordnung.

Was ich meine ist dieses Fenster welches man sieht wenn man seine Auflösung verändert. Oben werden ja alle Monitore mit einer Nummer markiert und dessen Positionen angezeigt.

Auch hier sieht man das mit einem Monitor schön:
http://www.chip.de/ii/6/4/9/6/8/6/5/...887c2b8862.png

Wie lässt sich so etwas realisieren?

[himitsu]

Screen

[BadenPower]

Schau Dir einmel die Klassen TScreen und TMonitor an.

Wenn Du mehr Informationen zu den einzelnen Moitoren und Grafikeinstellungen benötigst musst Du auf die Windows-Api zurückgreifen.

Siehe dort zum Beispiel unter:
EnumDisplayDevices
EnumDisplaySettings
EnumDisplaySettingsEx
GetDeviceCaps

[dGeek]

Und genau da liegt ja der Hund begraben ;)

Screen und Monitor sagen mir etwas.
Aber wie bekomme ich die Bildschirmanordnung heraus?
Bildschirm 2 ist ja nicht zwangsweise rechts, der kann auch oben, unten oder links sein.

[BadenPower]

Zitat:

Zitat von dGeek (Beitrag 1290460)

Und genau da liegt ja der Hund begraben ;)

Screen und Monitor sagen mir etwas.
Aber wie bekomme ich die Bildschirmanordnung heraus?
Bildschirm 2 ist ja nicht zwangsweise rechts, der kann auch oben, unten oder links sein.

Hast Du Dir einmal die Hilfe zu TMonitor angeschaut???

Da steht bei der Property "Top" zum Beispiel so ein netter Hinweis.

Zitat:

In Anwendungen mit mehreren Bildschirmen kann sich der verfügbare vertikale Anzeigebereich über mehrere Bildschirme erstrecken. Mit Top können Sie feststellen, wo sich der obere Rand des Bildschirms innerhalb des Gesamtbereichs befindet. Der Wert von Top wird relativ zum oberen Rand des Primärbildschirms in Pixel angegeben.

Es lohnt sich auch die anderen Propertys anzuschauen.

[dGeek]

Wenn es eine online-Hilfe gibt, gucke ich mir das gerne an.
Aber nach dem Update 3 für mein XE2 funktioniert meine Hilfe nicht mehr und alles neu zu installieren dauert zu lange :(

Ich sehe gerade dass das alles viel zu komplex für mich ich da blicke ich nicht durch.
Außerdem komme ich mit Monitor gar nicht klar, mit Screen schon.

[dGeek]

Also wie ich die Positionen herausbekomme habe ich jetzt sehr laienhaft herausbekommen.

Aber wie kann ich das umrechnen und auf einem Form anzeigen lassen? Genau damit habe ich eben Probleme.

[himitsu]

Wieso laienhaft?

In Screen findet man die Monitore und in jedem Monitor die pixelgenaue Position und Größe.
Das kann man nun direkt bbenutzen, oder man rechnet es sich entsprechend um, auf die benötigte Größe. (Zoomen -> Prozentrechnung oder der geliebte Dreisatz)

[dGeek]

Ich glaube das wird mit mir heute nichts mehr :P

Das folgende ist nur zum Testen. Aber die Shapes bzw das Shape wird immer oben links in den negativen Bereich gesetzt.
Solche Rechnungen sind zu kompliziert für mich :D

Delphi-Quellcode:

var
  p: TPoint;
  i: Integer;
  aShape: TShape;
begin
  for i := 0 to Screen.MonitorCount - 1 do
  begin
    p := Point(Screen.Monitors[i].Top, Screen.Monitors[i].Left);

    aShape := (FindComponent('Shape' + IntToStr(i + 1)) as TShape);
    aShape.Left := ScreenToClient(p).Y;
    aShape.Top := ScreenToClient(p).X;

    aShape.Width := Screen.Monitors[i].Width;
    aShape.Height := Screen.Monitors[i].Height;

    showmessage(IntToStr(aShape.Left) + ' - ' + IntToStr(aShape.Top));
  end;

[Sir Rufo]

Zitat:

Zitat von dGeek (Beitrag 1290467)

Wenn es eine online-Hilfe gibt, gucke ich mir das gerne an.
Aber nach dem Update 3 für mein XE2 funktioniert meine Hilfe nicht mehr und alles neu zu installieren dauert zu lange :(

Ich sehe gerade dass das alles viel zu komplex für mich ich da blicke ich nicht durch.
Außerdem komme ich mit Monitor gar nicht klar, mit Screen schon.

Hach, so ein Mist aber auch ... wenn es nur sowas wie ein vernetztes Informationsdingen geben würde - man würde es glatt Internet nennen können - wo diese Informationen abrufbar wären ... das wär schön ..

TScreen oder direkt für XE3 auf deutsch
http://docwiki.embarcadero.com/Libra....Forms.TScreen