Monitor identifizieren / Identifikation einschalten

[himitsu]

Am Ende ist es nur eine interne Funktion des Anzeige\Bildschirmauflösung-Programms ... Ich weiß auch nichts von einer entsprechenden API und wüßte nicht, wozu man sich die Mühe machen sollte sowas Einfches zu veröffentlichen.

Es gibt auch unzählige MonitorEinstellungsprogramme der verschiedensten Grafikkartenhersteller und es wäre verwunderlich, wenn es sowas gäbe und ich aber noch nie gesehn hab, daß die es verwenden.

Delphi-Quellcode:

procedure TForm11.Button1Click(Sender: TObject);
var
  i:    Integer;
  M, P: TForm;
begin
  ShowMessage('Ich bin auf Monitor ' + IntToStr(Self.Monitor.MonitorNum + 1));

  P := nil;
  try
    for i := 0 to Screen.MonitorCount - 1 do begin
      M := TForm.Create(P);
      if not Assigned(P) then P := M;
      //M.DoubleBuffered := True;  // ich fand's mit Win7-Glass-Style hübscher, als nur billig transparent
      //M.GlassFrame.Enabled := True;
      //M.GlassFrame.SheetOfGlass := True;
      {}M.TransparentColor := True;
      {}M.TransparentColorValue := M.Color;
      M.FormStyle := fsStayOnTop;
      M.BoundsRect := Screen.Monitors[i].BoundsRect;
      with TLabel.Create(M) do begin
        Parent := M;
        Align := alClient;
        Alignment := taCenter;
        Layout := tlCenter;
        Caption := IntTostr(Screen.Monitors[i].MonitorNum + 1);
        Font.Size := 75;
      end;
      M.Show;
    end;
    for i := 0 to 300 do begin
      Application.ProcessMessages;
      Sleep(10);
    end;
  finally
    P.Free;
  end;
end;