Es geht viel einfacher : Canvas hat ne Funktion, wo du die Textbreite in Pixel herausfinden kannst.
Delphi-Quellcode:
Canvas.TextWidth(Caption) +2; //die +2 für die abstehende Breite
//das geht nur wenn du einen neue Komponente erstellst. Zur Design-Zeit, also wo du die Komponenten aufs Form ziehst, musst du erst ne Variable Canvas erstellen
var Canvas : TCanvas;
begin
Canvas := TCanvas.Create;
Canvas.Handle := GetDC(Panel.Handle);
end;
//und dann halt TextWidth machen
Hoffe ich konnte dir helfen
Gruß NickelM