Всем привет. Тут такая проблема возникла - нужно при щелчке по trackbar отследить позицию курсора на нем по оси x и получить в виде числа. Возможно ли это?
Добавлено через 1 мин.
Trackbar растянут по всей длине формы.
// Перед классом формы:
TTrackBar = class(ComCtrls.TTrackBar)
private
procedure WMLButtonDown (var Msg: TMessage);
message wm_LButtonDown;
end;
// Собственно реализация:
procedure TTrackBar.WMLButtonDown (var Msg: TMessage);
var
X, Y: integer;
the_pos: integer;
begin
X := LOWORD(Msg.LParam);
Y := HIWORD(Msg.LParam);
// Вывод сделал в Memo для удобства отладки...
Form1.Memo1.Lines.Add('click at: ' + inttostr(x) + ':' + inttostr(y));
the_pos := trunc((Max - Min) * X / Width) + Min;
Form1.Memo1.Lines.Add('pos = ' + inttostr(the_pos));
end;