N netfun2000 Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-22 #3 我是想知道,滚动条到底部后触发的事件。然后我在事件里面写代码,不是判断是否到了底部。
N netfun2000 Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-22 #4 判断到底部已解决: function TForm1.ScrollIsMax: Boolean; var iPos, iMaxPos: Integer; begin GetScrollRange(StringGrid1.Handle, SB_VERT, iPos, iMaxPos); iPos := GetScrollPos(StringGrid1.Handle, SB_VERT); Result := iMaxPos = iPos; end; 感谢vvyang
判断到底部已解决: function TForm1.ScrollIsMax: Boolean; var iPos, iMaxPos: Integer; begin GetScrollRange(StringGrid1.Handle, SB_VERT, iPos, iMaxPos); iPos := GetScrollPos(StringGrid1.Handle, SB_VERT); Result := iMaxPos = iPos; end; 感谢vvyang