孤独的流浪汉

摘要： type TPrintProc = function(DataPrint: integer; PrintFile: WideString; PrintMode: Integer = 1): Integer; safecall; //根据动态库中的函数来自定义类型////////////////////////////////////////////////////////////函数中///////////////////////////////////////////////////////////////////////////////////////////////////procedu 阅读全文

摘要： 首先在窗体上放个TScrollBox控件，再在工具栏上双击安放你想放的控件如TImage、TPanel,如果想要响应鼠标滚轮事件代码有两种方式分别如下：if WheelDelta > 0 then ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - 20 else if WheelDelta < 0 then ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + 20;if WheelDelta & 阅读全文