如何让scrollbox支持鼠标滚轮,或者有类似的控件 对呀,有谁知道的话,麻烦发到[email protected]100分相送。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TMainForm.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin if WheelDelta < 0 then ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0) else ScrollBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);end; 太感谢 taxi(今天你打的了吗) 了,要是离着我近,非要请你吃顿饭不可,非常感谢! 高分求一个简单的画布输出打印例子(100分) 菜鸟求助!!(急!!!!) 再次高分求OLE与WORD问题 乘积问题,请进 如何判断Image是否显示了图象?怎样清空它? 各位大哥我在装控件时有时老是出现file not found dsgnlntf.dcu那是什么原因? 求救!!组合键,用串口发手机短信,就差一个组合键问题 win2k server+delphi6的奇怪现象!高手帮忙啊!! 请问如何更改标题栏的外观,就像金山词霸的效果一样?百分相赠! 北京的朋友请伸一下手(找房4) 在 D7 中按Shift+a 怎么打不出 A? 大虾们有没有用NMUDP控件传文件的例子,给我看看啊。谢谢
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if WheelDelta < 0 then
ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0)
else
ScrollBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);
end;