FMX / Label & Textheight berechnen?

[Mavarik]

Hallo Zusammen...

Leider hat FMX immer noch den Fehler, dass die Textheight eines Labels der dynamisch erzeugt wird nicht stimmt...

Beispiel:

Delphi-Quellcode:

Function MakeLabel(AOwner : TControl;X,Y,W,A : Integer;Style,Caption:String):TLabel;
begin
  Result             := TLabel.Create(Papa);

  Result.Parent      := AOwner;
  Result.StyleLookup := Style;
  Result.Width       := W;
  Result.Height      := ???
  Result.Position.X  := X;
  Result.Position.Y  := Y;
  Result.TextAlign   := TTextAlign(A);
  Result.Text        := Inhalt;
end;

Ein Result.Canvas ist blöderweise NIL, daher fällt ein Result.Canvas.Textheight('P|y') leider aus...

Hat jemand je Idee?

Ein Result.AutoSize := true; Erzeugt zwar die richtige Höhe, aber verhindert dann zentriert- oder rechtsbündigen Text.

Mavarik