Вопрос по TrackBar

[BlackStar]

Доброго времени суток.

Коллеги, я хочу задать вам вопрос по поводу TTrackBar-а. Дело в том, что при клике на нем ползунок не перемещается сразу к тому месту, где кликнули, а передвигается только чуть-чуть в нужную сторону и всё, и нужно снова кликать. Нет ли какой-нибудь возможности заставить его перемещаться сразу в нужное место?
   И ещё. В силу специфики моего проекта, очень хотелось бы сделать TrackBar как в Фотошопе - полоска и перемещающийся треугольник. Существует ли вобще такой компонент для Delphi?

[zubr]

Коллеги, я хочу задать вам вопрос по поводу TTrackBar-а. Дело в том, что при клике на нем ползунок не перемещается сразу к тому месту, где кликнули, а передвигается только чуть-чуть в нужную сторону и всё, и нужно снова кликать. Нет ли какой-нибудь возможности заставить его перемещаться сразу в нужное место?

Переопределить свой класс от TTrackBar, в котором перехватывать сообщения WM_LBUTTONUP, определять позицию курсора и в зависимости от нее устанавливать свойство Position компонента.

И ещё. В силу специфики моего проекта, очень хотелось бы сделать TrackBar как в Фотошопе - полоска и перемещающийся треугольник. Существует ли вобще такой компонент для Delphi?

Не знаю. Сторонними компонентами стараюсь не пользоваться. По необходимости пишу свои.

[BlackStar]

Спасибо за совет, но, к сожаленью, это не лучший вариант

Переопределить свой класс от TTrackBar, в котором перехватывать сообщения WM_LBUTTONUP, определять позицию курсора и в зависимости от нее устанавливать свойство Position компонента.

Вот, например, мне подсказали как это сделать без переопределения класса, но этот метод не точный и моему клиенту он не подойдет:

Код: (Text)

void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
int x = Mouse->CursorPos.x - Form1->Left - TrackBar1->Left;
TrackBar1->Position=x * TrackBar1->Max / TrackBar1->Width;
}

[zubr]

HempStar, тогда пиши свой тракбар.