У меня все на OpenGL так что создавать все приходится с нуля...
Вот код:
OnDraw:
GetControlRec;
dw:=width / abs(Fmax-FMin);
L:=FParentWRec.Left;
left:=L+FPosition*dw-20;
{Ну и тут дальше непосредственно отрисовка бегунка}
OnMouseClick:
GetControlRec;
dw:=width / abs(FMax-FMin);
Rx:=GLMouse.x;
L:=FParentWRec.Left + Left;
FPosition:=Round((Rx-L) / dw);
Вроде все как нада, я весь моск себе уже сломал
что-то туплю ужас как...