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

> ВНИМАНИЕ!

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

> Вопрос по Trackbar, Нужна помощь!
Артемий
сообщение 25.11.2006 14:50
Сообщение #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 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Артемий
сообщение 25.11.2006 15:01
Сообщение #2


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

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

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


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

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


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

Сообщений в этой теме


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

 



- Текстовая версия 14.07.2025 19:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"