怡 怡.梦 Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-25 #2 http://delphibbs.com/delphibbs/dispq.asp?lid=2521185 这个分多啊。。。。
Y yostgxf Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-25 #3 没明白？Panel上没有Scrollbar呀 是不是从TPanel上继承一个组件，拥有Scrollbar和鼠标滚轮事件？
F fangwave Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-25 #4 是在Panel上放了一个ScrollBar，使他有鼠标滚动事件
怡 怡.梦 Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-25 #5 这个try it http://www.tommstudio.com/newclub30/d_displayjqxw.asp
S sunsong Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-25 #6 使用ScrollBox. procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position-WheelDelta; end;
使用ScrollBox. procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position-WheelDelta; end;
F fangwave Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-26 #7 怡.梦:你的链接好像不行 sunsong：我用的是ScrollBar ,不是ScrollBox
