摘要: Delphi的TScrollBox本身并不响应鼠标滚轮事件(不知道为什么),但可以在ScrollBox的鼠标滚动事件中进行控制:procedure TfrmTaskNoteEdit.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin if WheelDelta < 0 then SendMessage(scrollBox1.Handle,WM_VSCROLL, SB_L... 阅读全文
posted @ 2013-07-02 12:24 garfieldtom 阅读(3176) 评论(2) 推荐(0)