delphi中怎么判断memo滚动条滑到底部了？
本人新手，请大家帮帮忙吧！ memo??滚动条
[解决办法]
var
si: TScrollInfo;
begin
si.cbSize := SizeOf(si);
si.fMask := SIF_ALL ;
GetScrollInfo(mmo1.Handle, SB_VERT, si);
if (si.nPos + si.nPage = si.nMax + 1) then
begin
ShowMessage('滚动条到达底部');
end;
begin;
