Hallo
mein Form ist hat folgende Eigenschaften
Breite: 640 pixel
PixelsPerInch= 96
Nun möchte ich die Breite in cm in Edit1 anzeigen lassen :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(Trunc(Form1.width*Form1.PixelsPerInch / (25.4*100)));
end;
Ich erhalte aber 23 cm und nicht 20 !
[edit=SirThornberry]Titel korrogiert - nächstes mal bitte die Zeit nehmen wenigstens einmal kurz drüber zu schauen was du schreibst 
Mfg, SirThornberry[/edit]