IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Вопрос по Trackbar, Нужна помощь!
сообщение
Сообщение #1


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Здрастье! У меня на плеере лежит TrackBar. Я его использую для перемотки музыки. Он у меня нестандартный, так как имеет события OnMouseUp и OnMouseDown! на событие OnMouseUp я использую следующий цикл:
procedure TForm1.TrackBar2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MediaPlayer1.Position := TrackBar2.Position;
MediaPlayer1.Play;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
Trackbar2.Position:=MediaPlayer1.Position;
end;


На OnChange этот цикл не работает, так как там через каждую секунду происходит заикание! Но вот в чем вопрос: неудобно хватать ползунок и тащить его в нужное место. Особо ленивый народ просто хочет ткуть мышкой по нужному месту и чтоб ползунок сам туда приплыл! Как это сделать? dry.gif


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Угу... Ну, с OnMouseUp понятно... А что ты делаешь по OnMouseDown, покажи?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Ничего. А нужно на нем че-то делать? Вроде хорошо работает! Никаких идей нет по моему вопросу?

Сообщение отредактировано: Артемий2 -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.07.2021 9:01
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name