Mausrad mit Label, Scrollbar, etc. benutzen

[kurtm1]

für alle hier nochmal die Version mit korrigierten Y Werten, daher kann die Form jetzt ganz normal mit bsSingle verwendet werden:

Delphi-Quellcode:

function MouseWheel (Sender:TControl;WheelDelta:Integer;MousePos:TPoint):shortint;
begin
        if (Mousepos.X-Form1.Left>=Sender.Left) and (MousePos.X-Form1.Left<=Sender.Left+Sender.Width) and
        (MousePos.Y-form1.Top>=Sender.Top+GetSystemMetrics(4)) and (MousePos.Y-form1.Top<=Sender.Top+Sender.Height+GetSystemMetrics(4)) then
        begin
        if WheelDelta>0 then Result:=-1
        else
        Result:=1;
        end
        else
        result:=0;
end;