Firemonkey TEdit mit Autosize?

[Mavarik]

Hallo Zusammen!

Ich möchte meiner FMX.TMyEdit(FMX.TEdit) ein AutoSize Feature wie bei einem TLabel beibringen.

Beispiel:

Delphi-Quellcode:

constructor TMyEdit.Create(AOwner: TComponent);
begin
  inherited;
  Text       := '0,00';
// Wie?      if CalcTextObjectSize(Width, LSize) then
// Width     := LSize;
end;

Wie bekomme ich ein CalcTextObjectSize bei einem TEdit hin? Ich steh gerade auf dem Schlauch!

Mavarik