Hi! Danke, nur bringt er hier einen fehler:
Delphi-Quellcode:
if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or
Message.msg = WM_Mousewheel)) then
Wie ist das? Geht das auch, wenn ich nur auf die Scrollbar an der Seite der ListBox klicke, oder nur, wenn ich am Mausrad drehe?