Label Font soll sich an dem Text ausrichten

[eugene222]

@vergessen
Ich hätte nicht gedacht, dass hier so Kiddys unterwegs sind.

@Topic
Ich hab das vorhin alles verworfen, weil es voller Fehler war.
Ich setze mich jetz nochmal dran. Vielleicht wird es diesmal etwas besser klappen.
Wenn ich Fortschritte gemacht habe, werde ich diese hier reinposten.

*edit*
Ja genauso hab ich es ja auch gemacht. Das Problem ist nur, dass man den Font nur in 1 Schritten verkleinern kann. Gib es irgentwelche Möglichkeiten den Font im Kleinen Maß zu verkleinern/vergrößern?

*edit2*
Ich hab das jetz so

einmal das On_Change Event des EditFeldes:

Code:

procedure Tabc.ed_a_Change(Sender: TObject);
 BEGIN
  TRY
   f_a := StrToFloat(ed_a.text);
   s_a := ed_a.text;
  EXCEPT
   ed_a.text := '';
   f_a := 0;
   s_a := 'a';
  END;
  la_formel.caption := s_a+'x²+'+s_b+'x+'+s_c+' = 0';
  formel;
 END;

Und die Formel Prozedur:

Code:

PROCEDURE Tabc.formel;
 BEGIN
  IF la_formel.Canvas.TextWidth(la_formel.caption) > la_formel.Width
  THEN BEGIN
        While la_formel.Canvas.TextWidth(la_formel.caption) > la_formel.Width DO
        BEGIN
         la_formel.Font.Size:= la_formel.Font.size -1;
        END;
       END
  ELSE BEGIN
        While la_formel.Canvas.TextWidth(la_formel.caption) < la_formel.Width DO
        BEGIN
         la_formel.Font.Size:= la_formel.Font.size +1;
        END;
       END;
 END;

Irgentwas ist da falsch. Aber ich weiß nicht was. Ich bin noch Anfäger in solchen Sachen