Alternativ fällt mir dazu ein: Du kannst von deinem Form das "Canvas" und dann dessen Methode "TextWidth" benutzen, um das rauszufinden.
Also z.B.:
Delphi-Quellcode:
procedure TForm1.MachIrgendwas;
var oldFont: TFont;
myWidth: integer;
begin
// die bisherige Schrift sichern, um nix kaputt zu machen...
oldFont:=canvas.Font;
// Die richtige Schrift, die gemessen werden soll...
canvas.Font.Name:='Courier';
canvas.Font.Size:=12;
// Ausmessen...
myWidth:=Canvas.TextWidth('Hiervon will ich die Breite...');
// Schrift zurücksetzen...
Canvas.Font:=oldFont;
// Und hier mach ich dann mit der Erkenntnis von myWidth irgendwas...
[...]
end;
Ungetestet, aber ich bin optimistisch...
Bis denn
Bommel