Question

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

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

Answer 1

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...;
......

Answer 2

var
i :integer;
if i = richedit.RecondCount-1 then
begin
showmessage('the last one!');
end