Hallo zusammen,

wie kann ich unter Delphi 7 die Monitor-Identifikation einschalten?

Ich meine damit die Nummer, welche am Bildschirm dargestellt werden, so wie dies in der Systemeinstllungen gemacht werden, wo ich den primären Monitor zuweise.

Du könntest natürlich auch ganz einfach selber solche Zahlen hinmalen.

In Screen findest'e wo welcher Monitor sich befindet.

Zitat von himitsu:

Du könntest natürlich auch ganz einfach selber solche Zahlen hinmalen.

In Screen findest'e wo welcher Monitor sich befindet.

Über "Screen" kann ich den aktuellen Monitor abfragen.

Die Aufgabe ist es, auf einen Buttondruck auf jedem Monitor sein ID (1, 2 ..) direkt anzuzeigen. Der Anwender soll mit einem Blick erkennen, welcher monitor der Monitor 1, welcher der Monitor 2 ist usw.

Da Windows offensichtlich eine derartige Funktion schon hat, frage ich mich, ob man diese nicht einfach aufrufen (z.B. API) kann.... und wie?

Zitat von saxy:

Die Aufgabe ist es, auf einen Buttondruck auf jedem Monitor sein ID (1, 2 ..) direkt anzuzeigen. Der Anwender soll mit einem Blick erkennen, welcher monitor der Monitor 1, welcher der Monitor 2 ist usw.

Da Windows offensichtlich eine derartige Funktion schon hat, frage ich mich, ob man diese nicht einfach aufrufen (z.B. API) kann.... und wie?

In der Screen-Auflistung hast du doch die Infos.
Du musst "nur" wie der entsprechende Windows-Einstellungsdialog eine geschaptes Formular auf dem entsprechenden Monitor anzeigen. Das Monitor-Propertie im Screen-Objekt hilft dir dabei die benötigten x/y-Positionen deiner Formular zu bestimmen.

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.

zusammenfalten · markieren

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;

Hallo,

vielen Dank noch mal für die Infos. So kann ich grundsätzlich das Problem lösen.

Das Beispielprogramm kann ich leider so nicht verwenden da meine Dialoge geskint sind und transparent scheint nicht zu gehen. Aber einige Aspekte kann ich gut verwenden.

Hilfreich sind mir hierbei auch die Tools von http://delphiworks.sourceforge.net.

Falls jemand dennoch eine Idee hat, wie auf die Windows-eigene Funktion zurückgreifen kann.... gerne


Grüße