Firemonkey T编辑高度

我正在使用 Delphi Seattle，我的应用程序适用于 Windows 桌面。

我正在尝试更改 TEdit 的字体大小。因此高度也被修改。在设计时一切正常，但当我运行应用程序时，TEdit 会忽略高度修改并剪切文本。

我试图找到FixedHeight按照建议here https://stackoverflow.com/questions/23808294/the-tedit-height-is-fixed-on-firemonkey-style-how-to-change-it，但我找不到这个属性。

是否可以更改 TEdit 高度？

这可以通过覆盖控件来解决AdjustFixedSize方法。 正如@chrisrolliston 所解释的，删除 FMX 控件的大小限制 https://delphihaven.wordpress.com/2013/12/30/removing-a-fmx-controls-size-restrictions/并举例说明here http://codeverge.com/embarcadero.delphi.firemonkey/how-to-change-the-height-in-a-t/1060266:

unit Unit4;
interface
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit, MyTEdit;

type
  TForm4 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form4: TForm4;

implementation

{$R *.fmx}

procedure TForm4.FormCreate(Sender: TObject);
begin
  Edit1.Height := 60;
end;

end.

unit MyTEdit;
interface
uses
  FMX.Edit, FMX.Controls;

type
  TEdit = class(FMX.Edit.TEdit)
  protected
    procedure AdjustFixedSize(const Ref: TControl); override;
  end;

implementation
uses
  FMX.Types;

procedure TEdit.AdjustFixedSize(const Ref: TControl);
begin
  SetAdjustType(TAdjustType.None);
end;

end.