Firemonkey TEdit mit Autosize?

[Harry Stahl]

Vermutlich kannst Du das zum Create-Zeitpunkt des TEdits noch nicht machen, weil das TEdit da noch kein Canvas(-Bezug) hat (zur Laufzeit ist er da und nutzbar). Beim Label macht es die Private Fitsize-Procedure, um das Autosize umzusetzen, die setzt aber u.a. ein existierendes IScene-Object voraus, das zum Create-Zeitpunkt auch noch nicht da ist, die Fitsize-Funktion wird mehrmals ergebnislos verlassen, irgendwann später ist alles Benötigte da, dann wird das Sizing auch ausgeführt.

Ich bin kein Komponentenentwicker, daher kann ich Dir hier keinen Tipp geben, wie oder wo man das im Komponentendesign an der richtigen Stelle macht.

Ein Workaround geht aber immer, weiß aber nicht, ob Dir das hilft:

Delphi-Quellcode:

unit Unit5;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.Edit, FMX.StdCtrls;

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  TMyEdit = class (TEdit)
  public
    constructor create (AOwner: TComponent); override;
  end;

var
  Form5: TForm5;

implementation

{$R *.fmx}

{ TMyEdit }
constructor TMyEdit.create(AOwner: TComponent);
var
  ACompo: TComponent;
begin
  inherited;
  Text := '0,00';

  ACompo := AOwner; // Form suchen
  while ACompo.HasParent do begin
    ACompo := ACompo.GetParentComponent;
  end;

  Width := TForm (ACompo).Canvas.textwidth (Text) + 6;
end;


procedure TForm5.FormCreate(Sender: TObject);
var
  myEd, myEd2: TMyEdit;
begin
  myEd := TMyEdit.create(self);
  myEd.Parent := self;
  myEd.Visible := True;
  myEd.Stylelookup := 'editstyle';
  myEd.Position.x := 100;
  myEd.Position.Y := 20;
  myEd.SetFocus;

  MyEd2 := TMyEdit.create(panel1);
  MyEd2.Parent := Panel1;
  MyEd2.Visible := True;
  MyEd2.Stylelookup := 'editstyle';
  MyEd2.Position.x := 10;
  MyEd2.Position.Y := 10;
  MyEd2.SetFocus;

end;

end.

Das Ergebnis sieht wie im Screenshot aus. Ein Edit liegt auf der Form, das andere im Panel. Beides mal wird der Canvas der Form als Orientierungsgrö0e für das Sizing des TMyEdits verwendet.