[VCL] Textbreite in Pixeln ohne Canvas ermitteln?

[Amateurprofi]

Delphi-Quellcode:

FUNCTION TextExtent(FontHandle:HFont; const S:String):TSize;
var DC:HDC; OldFont:HFONT;
begin
   DC:=GetDC(0);
   try
      OldFont:=SelectObject(DC,FontHandle);
      GetTextExtentPoint32(DC,S,Length(S),Result);
      SelectObject(DC,OldFont);
   finally
      ReleaseDC(0,DC);
   end;
end;

Delphi-Quellcode:

FUNCTION TextWidth(FontHandle:HFont; const S:String):Integer;
begin
   result:=TextExtent(FontHandle,S).cx;
end;