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;