Monitore und dessen Positionen anzeigen (Bildschirmanordnung)

[dGeek]

Ich glaube das wird mit mir heute nichts mehr

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

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;

[BadenPower]

Zitat von dGeek:

Ich glaube das wird mit mir heute nichts mehr

Delphi-Quellcode:

    aShape.Left := ScreenToClient(p).Y;
    aShape.Top := ScreenToClient(p).X;

Das Koordinatensystem ist auch nicht gerade Dein Freund?

[dGeek]

Nein, heute nicht X und Y vertauscht, wie peinlich.

[dGeek]

So ich bin jetzt soweit, dass die Shapes sichtbar angezeigt werden.
Aber: wenn sich Monitor 2 links neben Monitor 1 befindet, ist Monitor 2 im negativen Bereich, da Monitor 1 immer an Position 0|0 ist:

Delphi-Quellcode:

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

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

    aShape.Width := prozentwert(Screen.Monitors[i].Width, 5);
    aShape.Height := prozentwert(Screen.Monitors[i].Height, 5);

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

[Sir Rufo]

Und was ist daran schlimm, dass da negative Werte sind? Das sagt ja auch die Doku

[dGeek]

Es ist schlimm, weil es dann nicht auf meinem Formular sichtbar ist da Monitor 1 immer an Position 0|0 ist

[Sir Rufo]

Zitat von dGeek:

Es ist schlimm, weil es dann nicht auf meinem Formular sichtbar ist da Monitor 1 immer an Position 0|0 ist

Ist aber auch ein schlimmer Finger dein Formular. Kannst du das nicht austricksen indem du zu jedem Wert einen bestimmten Wert addierst. Ein guter Wert wäre ja der Wert, der dann mit dem Left-Wert des 2. Monitors zusammen 0 ergibt.