TLabel.AutoSize spinnt

[berens]

Hallo!

Ich habe das Problem, dass wenn ich von einer Instanz von TLabel die Eigenschaft Caption ändere (wobei AutoSize = True), die Höhe falsch berechnet wird.

Dies äußert sich in sofern, dass bei dem Text oben und unten eine Menge Platz ist (ca. erforderliche Höhe * 3) mit tlCenter oder nur unten eine Menge Platz bei tlTop.

Der Text kann mehrere Zeilen haben, und ist normalerweise mit Align=alTop, der Text ist Linksbündig und Layout ist tlTop oder tlCenter (was allerdings keinen Unterschied bei dem Fehler macht).

Folgendes habe ich bereits probiert, hilft aber nicht:

Delphi-Quellcode:

with Label1 do begin
    Align := alNone;
    Anchors := [];
    AlignWithMargins := False;

    Self.FlblText.AutoSize := true;
    Self.FlblText.AutoSize := false;
    Self.FlblText.AutoSize := true;
    Align := alTop;

    Invalidate;
    Repaint;
    Refresh;
    update;
end;

Wie bringe ich dem das bei?