Ich habe den Code etwas geändert, obwohl das gleiche Ergebnis erhalte
aber es ist noch einfacher
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x: Double;
begin
X:=screen.Width/Screen.PixelsPerInch;
Caption:=FloatToStr(x*25.43);// screen.Width in mm
end;
Ich erhalte :
271,25333
