| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

progressbar

media ©   (2006-06-04 16:50:00) 

Как сделать так чтобы progressbar осуществлял перемотку
т.е по сути работал  как trackbar

---

Zeqfreed   (2006-06-05 03:56:00) [1]

procedure TForm1.ProgressBar1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
with (Sender as TProgressBar) do
 Position := Round(X * (Max - Min) / Width);
end;

Более точного результата можно достичь, установив Smooth в true.

---

Михайлов Антон   (2006-06-05 00:14:00) [2]

попробуй для этих целей имэйдж заюзать...

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SONGPOS:=Trunc(X/Image1.Width * SONGLENGTH);
end;

SONGPOS и SONGLENGTH - естественно должны быть заранее известны...

ну и естественно с течением песни/фильма дорисовывать заполнение Image1

---

media   (2006-06-04 22:39:00) [3]

спасибо за ответ
но чето не то положение выставляется когда я тыкаю мышкой
Обясните поподробней плз

---

Rial   (2006-06-04 20:22:00) [4]

Определяешь позицию так:
ProgressBar.Pos:=Round(ProgressBar.Max*(MousePos.X-ProgressBar.Left)/ProgressBar.Width);

---

Наверх