Aber warum der Code hier funktioniert ?
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var pixel_cm : Single;
begin
pixel_cm :=(GetDeviceCaps(
DC,LOGPIXELSX)/2.54);
Edit1.Text:=FloatToStr(pixel_cm);
Edit2.Text:=IntToStr(Round(Form1.Width/pixel_cm));
end;
Edit:
der Code oben funktioniert aber nicht wenn ich ihn in mein Projekt lege
sondern in ein neues Projekt getestet
Waran kann das liegen ?
warum funktioniert der Code in ein Projekt und in das andere nicht ?