DELPHI XE5 FOR ANDROID 模仿驾考宝典 TMEMO 控件随着字数增多自动增高

来源:互联网 时间:1970-01-01

在一个安卓需求中,需要模仿驾考宝典的详解部分。琢磨了好几天。终于搞定:

MemoAns.Height:=10;//MEMO控件赋初始高度值
MemoAns.Lines.Clear;
MemoAns.WordWrap:=true;//自动换行
MemoAns.Text:='详解:'+dm.FDQSQ.FieldByName('GANSER').AsString;//输入memo字串

MemoAns.GoToTextBegin;//到文字最前
MemoAns.GoToTextEnd;//到文字最后

 

//核心代码:利用滚动条溢出部分计算MEMO高度

MemoAns.Height:= MemoAns.Height+ MemoAns.ViewportPosition.Y+MemoAns.BoundsRect.Height;
MemoAns.Repaint;
MemoAns.GoToTextBegin;//到文字最前

 

缺点:文字中间不能有空行。


相关阅读:
Top