[sandysman]

Сообщение от YVitaliy

Как вариант.

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
var GlobalPos,LocalPos:TPoint;
begin
  GetCursorPos(GlobalPos);
  LocalPos:=TrackBar1.ScreenToClient(GlobalPos);
  TrackBar1.Position:=round((trackBar1.Max/(trackBar1.Width-28))*(LocalPos.X-14));
end;

Спасибо огромное!) а если можно, можно коменты добавить, чтобы долго не сидеть разбираться в логике решения)