Помощь - Поиск - Пользователи - Календарь
Полная версия: Позиция курсора
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
Артемий
Всем привет. Тут такая проблема возникла - нужно при щелчке по 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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.