高手请帮忙(0分)

用这个可以得到滚动条滚动事件!!!
type
TMyGrid = class(TStringGrid)
protected
procedure WMVSCroll(var Msg:TWMVSCroll);message WM_VSCROLL;
procedure WMHSCroll(var Msg:TWMHSCroll);message WM_HSCROLL;
end;
那如何才能加入自已的事件呢

把你的事件写在这里面不就行了？

怎么写呢？给个代码
谢了！！！！

procedure WMVSCroll(var Msg:TWMVSCroll);message WM_VSCROLL;
procedure WMHSCroll(var Msg:TWMHSCroll);message WM_HSCROLL;
你在这两行代码上按ctrl＋shift＋c生成实现部分：
procedure TMyGrid.WMVSCroll(var Msg:TWMVSCroll);message WM_VSCROLL;
begin
//你的代码写这里
//Msg里的参数有代表位置的参数，你看看帮助
self.top := Msg.... //移动你自己的grid
end;
procedure TMyGrid.WMHSCroll(var Msg:TWMHSCroll);message WM_HSCROLL;
begin
end;

btw: 你也真够穷的，呵呵