FireMonkey에서 TEdit 사용시 FixedSize가 적용되어 디자인시나 런타임시에 Size.Height 값 변경을 해도 고정된 값으로 표현됩니다.
이 부분을 변경하고자 하는 경우 다음과 같이 할 수 있습니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
unit unit2; 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. |
그리고 실제 코드상에서는 다음과 같이 사용하면 됩니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
uses .., unit2; type TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; procedure TForm1.FormCreate(Sender: TObject); begin edit1.Size.Height := 64; end; |