delphi - Firemonkey T编辑高度

Question

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

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

我尝试按照建议找到 FixedHeight here ，但我找不到这个属性。

是否可以更改 TEdit 高度？

Answer 1

这可以通过重写控件的 AdjustFixedSize 方法来解决。正如@chrisrolliston 所解释的，Removing a FMX control’s size restrictions并举例here :

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.