Question

我正在使用XE7。

我在运行时创建了一个TMemo。

我需要放大你的身高以显示所有文字行。

我尝试过在stackoverflow上找到的这些函数，但是它们没有用。

Memo.height:=get_memo_height(aMemo) 和 Memo.height:=ResizeMemo(aMemo)

我的身高低于实际身高。

问候，路易斯

//doesnt work
function get_memo_height(amemo:tmemo):single;
    var i:integer;
        astring:string;
        layout:ttextlayout;

    begin
      Layout := TTextLayoutManager.DefaultTextLayout.Create;
      astring:='';
      for i:=0 to amemo.lines.count-1 do astring:=astring+amemo.lines[i]+chr(10);
      Layout.BeginUpdate;
      Layout.Text :=astring;
      Layout.WordWrap := amemo.wordwrap;
      Layout.HorizontalAlign := amemo.TextAlign;
      Layout.MaxSize := PointF(amemo.width-amemo.ContentBounds.width,maxint);
      Layout.VerticalAlign := tTextAlign.taLeading;
      Layout.Font := amemo.Font;
      Layout.TopLeft := pointf(0,0);
      Layout.EndUpdate;
      result:=layout.textrect.bottom;
      Layout.free;
    end;



    //doesnt work
    function ResizeMemo(AMemo: TMemo):single;
    const
      Offset = 4; //The diference between ContentBounds and ContentLayout
    begin
      result := AMemo.ContentBounds.Height + Offset;
    end;

Answer 1

尝试这项工作：

在TMemo中放置一个TText组件，与mostTop对齐，将Autosize True，HistTest False和Opacity设置为0

然后在一个事件中执行此操作：

procedure TfnuevoItem.Memo1KeyUp(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  Text1.Height:=0;
  Text1.Text:=Memo1.Text;
  Text1.RecalcSize;
  Memo1.Height:=Text1.Height+10; // set 10 or more offset
end;

如何设置TMemo高度以填充Delphi firemonkey中的文本内容

1 个答案: