Y ydy Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-28 #1 那位大侠知道如何实现 ScrollBox中ScrollBar的MouseUp事件！！ 先谢乐！！
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-28 #4 ScrollBox 中有现成的 OnMouseUp 事件。 ScrollBar 可以处理 OnScroll 事件，并且根据参数ScrollCode: TScrollCode 来判断状态。 procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); begin if ScrollCode in [scLineUp,scPageUp] then //在滑块左边点击的情况 showmessage('up'); end;
ScrollBox 中有现成的 OnMouseUp 事件。 ScrollBar 可以处理 OnScroll 事件，并且根据参数ScrollCode: TScrollCode 来判断状态。 procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); begin if ScrollCode in [scLineUp,scPageUp] then //在滑块左边点击的情况 showmessage('up'); end;
