如何根据文本高度确定RichEdit高度

时间:2010-01-26 14:50:20  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:>sInfo : tagSCROLLINFO;begin    sInfo.cbSize := SizeOf(TScrollInfo);    sInfo.fMask := SIF_RANGE;    RichEdit1.Height := 0;    GetScrollInfo(Richedit1.Handle, SB_VERT, sInfo);    RichEdit1...
  正文:

代码如下:


procedure TForm1.Button2Click(Sender: TObject);
var
sInfo : tagSCROLLINFO;

begin
  
  sInfo.cbSize := SizeOf(TScrollInfo);
  
  sInfo.fMask := SIF_RANGE;
  
  RichEdit1.Height := 0;
  
  GetScrollInfo(Richedit1.Handle, SB_VERT, sInfo);
  
  RichEdit1.Height := sInfo.nMax + RichEdit1.Font.Size;
  
end;

sInfo.nmax是滚动条的高度。这个方法要比去判断文本的高度方便的多。

因为无论怎样,滚动条的高度是和文本的高度一样的。


如何根据文本高度确定RichEdit高度》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/2010-01-26/12434.html


关键字:

关于《如何根据文本高度确定RichEdit高度》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td