delphi如何判断RichEdit是不是显示到底部了？

Posted 2023-03-27

如题，用SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0);richedit里面的文本往下滚动，当滚到底部时候showmessage一下，如何判断是否已经滚到底部了？
没有recordcount

SendMessage带有返回值，查看MSDN，关于EM_SCROLL，其返回值的低位Word是滚动的次数，如你所述，一次SendMessage，滚动一次，到底部则返回滚动0次，程序代码示例如下：
var
n : Integer;

......
n := SendMessage......
if n and $FFFF = 0 then
ShowMessage( '到底了' );
或者
if LongRec( n ).Words[0] = 0 then
ShowMessage...;
...... 参考技术A var
i :integer;
if i = richedit.RecondCount-1 then
begin
showmessage('the last one!');
end

delphi 2010 richedit控件字体问题！

我用D2010 写了个记事本小程序~ 用的richedit控件~richedit设置了我想要的字体~~~运行了~~程序~~输入文字·~不是我设置的字体~但是粘贴~~文字是我~所设置的字体~请高手~~~帮帮我~~怎么~~解决~！！

参考技术A richEdit的字体属性是针对每一个字的，不是针对控件的！ 参考技术B 楼上讲得对。richEdit的字体属性是针对每一个字的，不是针对控件的！
只要设置选中文本的字体