Помощь - Поиск - Пользователи - Календарь
Полная версия: Позиция курсора
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Артемий
Всем привет. Тут такая проблема возникла - нужно при щелчке по trackbar отследить позицию курсора на нем по оси x и получить в виде числа. Возможно ли это? blink.gif

Добавлено через 1 мин.
Trackbar растянут по всей длине формы.
volvo
  // Перед классом формы:
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;



Пойдет? Или ты имел в виду что-то другое?
Артемий
Премного благодарен! Respect!!! good.gif good.gif smile.gif
Артемий
Volvo,еще один вопросик. Допустим у меня уже установлен свой компонент TXiTrackBar. Как к нему замутить такую штуку?
volvo
Ну, откуда же я знаю, что это за компонент? Он же нестандартный...
Артемий
Я обошел эту проблему! Спасибо еще раз! +1
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.