N netfun2000 Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-20 #1 在StringGrid向下拉动右侧滚动条，怎样判断已经到了最底？
V vvyang Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-21 #2 极易： 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; 能用就给分，不能用说一声。
极易： 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; 能用就给分，不能用说一声。
N netfun2000 Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-21 #3 请问，拉动滚动条触发的是哪个事件啊，我不知道把代码放在什么地方。
N netfun2000 Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-21 #4 type TMyGrid = class(TStringGrid) protected procedure WMVSCroll(var Msg:TWMVSCroll);message WM_VSCROLL; procedure WMHSCroll(var Msg:TWMHSCroll);message WM_HSCROLL; end; 这个不会用。
type TMyGrid = class(TStringGrid) protected procedure WMVSCroll(var Msg:TWMVSCroll);message WM_VSCROLL; procedure WMHSCroll(var Msg:TWMHSCroll);message WM_HSCROLL; end; 这个不会用。
N netfun2000 Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-21 #5 帮我解决第二个问题的朋友可到 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3246706 领分，谢谢。
