|
#1
|
|||
|
|||
Вывод в Label
Всем доброго времени суток. Мой вопрос заключается в том что у меня есть
Label и есть MediaPlayer. Как можно выводить MediaPlayer1.Position в Label.Caption с помощью таймера? Я новичок в delphi и буду часто просить помощи у вас - матёрых программистов Последний раз редактировалось ZerMe, 30.03.2013 в 17:17. |
#2
|
|||
|
|||
правильно. таймером.
тока не забывай при остановке плеера таймер отключать(зачем лишний раз гонять его) |
#3
|
|||
|
|||
У меня ругается т.к позиция типа integer, а caption типа string.
Я не могу написать правильную функцию перевода. Прошу с этим помочь ) |
#4
|
|||
|
|||
Цитата:
Код:
Label1.Caption:=IntToStr(......); |
#5
|
|||
|
|||
Пробовал так, не работает
|
#6
|
||||
|
||||
Покажите код, посмотрим..
Delphicode.org - справочник Delphi |
#7
|
|||
|
|||
Над кодом как раз и думаем в этой теме
примерно должно выглядеть так: MediaPlayer.Positsion:=Label.Caption; 1 строчка, а столько хлопот =3 |
#8
|
||||
|
||||
Вы чего! пытаетесь Позиции плеера присвоить значение в Label?)
Код:
Label.Caption := IntToStr(MediaPlayer.Positsion); |
Этот пользователь сказал Спасибо Uniq! за это полезное сообщение: | ||
ZerMe (31.03.2013)
|
#9
|
||||
|
||||
Цитата:
Код:
function LenPlay(ds, vs: integer): string; var hour, min, sec: integer; begin if vs = -1 then ds:= ds div 1000 else ds:= vs div 1000 - ds div 1000; min := ds div 60; hour:= min div 60; if min > 60 then min:= min mod 60; sec := ds mod 60; Result:= FormatDateTime('h:mm:ss', EncodeTime(hour, min, sec, 0)); end; Код:
... // Осталось до конца label1.Caption:= LenPlay(MediaPlayer1.Position, -1); ... Код:
... // Прошло от начала label1.Caption:= LenPlay(MediaPlayer1.Position, MediaPlayer1.Length); ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
ZerMe (31.03.2013)
|
#10
|
|||
|
|||
Спасибо, попробую.
|
#11
|
|||
|
|||
Вопрос решен.
p.s как закрыть тему я не нашел )) |