我正在使用 Delphi Seattle,我的应用程序适用于 Windows 桌面。
我正在尝试更改 TEdit 的字体大小。因此高度也被修改。在设计时一切正常,但当我运行应用程序时,TEdit 会忽略高度修改并剪切文本。
我尝试按照建议找到 FixedHeight
here ,但我找不到这个属性。
是否可以更改 TEdit 高度?
最佳答案
这可以通过重写控件的 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.
关于delphi - Firemonkey T编辑高度,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/36478339/