Textbreite innerhalb der Titelleiste

[David Martens]

Also ich hole mir die Textbreite immer so:

Delphi-Quellcode:

function GetTextWidth(Text: string; Font: TFont): integer;
var
  WMF       : TMetafile;       // virtuelle WMF bzw. EMF Datei (enthält das Image)
  WMFCanvas : TMetafileCanvas; // virtuelle Oberfläche des Metafiles
begin
  WMF       := TMetafile.Create;
  WMFCanvas := TMetafileCanvas.Create(WMF, 0);

  WMFCanvas.Brush.Style := bsClear;
  WMFCanvas.Font := Font;

  Result := WMFCanvas.TextWidth(Text);

  WMFCanvas.Free;
  WMF.Free;
end;