textexpander

delphi set the TExpander height

与世无争的帅哥 提交于 2020-01-06 21:11:05
问题 i've a TExpander component and i add some TTexts to it at runtime , the issue i'm facing is : how can this Expander's height be set based on the Number of the TTexts , something like AutoSize ? the code i'm using : procedure TForm1.Button5Click(Sender: TObject); var _DailyEvent:TDailyEvents; Eventstext:TText; _Y:Integer; begin _Y:=10; For _DailyEvent in DailyEventsList do begin Eventstext:=TText.Create(Self); Eventstext.Position.Y := _Y; Eventstext.Align:=TAlignLayout.Top; Eventstext.Height: