Die TCanvas-Klasse hat eine Methode namens
TextWidth
Somit kannst du es prüfen durch:
Delphi-Quellcode:
if Label1.Canvas.TextWidth('dein Text') > Label1.Width then
ShowMessage('Zu klein');
Dies funktioniert zwar nur für einen Einzeiligen Text, aber ein bisschen modifizieren und es funzt auch für mehrzeilige Texte
