Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2012, 17:16   #1
munthrekosh
Пользователь
 
Аватар для munthrekosh
 
Регистрация: 12.11.2011
Сообщений: 80
Смущение Бегущая строка при воспроизведении музыки.

Всем Привет!

Хочу сделать, так что бы при нажатии кнопки «Play», появлялась «бегущая строка» и кнопка меняла «Caption» на «Stop». Но есть проблема, которую я не в силах понять). При нажатии на «Play», она меняет свой «Caption» и строка появляется, но появляется (строка) всего на секунду (точно! ибо через таймер делаю) и тут, же исчезает. При дальнейших манипуляциях с кнопками ничего не происходит (с бегущей строкой; всё остальное работает нормально). Подскажите в чём проблема!

Вот код на кнопке:
Код:
procedure TForm2.Button1Click(Sender: TObject);
begin
  If Button1.Caption='Play'
    then
      begin
        Button1.Caption:='Stop';
        PlaySound('1.wav', 0, SND_ASYNC or SND_LOOP);
      end
    else
      begin
        Button1.Caption:='Play';
        PlaySound('1.wav', 0, SND_PURGE);
      end;
  label6.Visible:= not label6.Visible;
end;
Вот на таймере:
Код:
procedure TForm2.Timer1Timer(Sender: TObject);
var
txt: string;
begin
  label1.Caption:=timetostr(time);
  If Button1.Caption='Stop'
    then
      begin
        label6.Caption:=copy(txt,length(txt)-1,1)+copy(txt,1,length(txt)-1)
      end;
end;
P.S. В разделе "Мультимедиа в Delphi" создал аналогичную тему. Прошу не ругать и не хулить если нарушил какое то из правил... Прошу простить, и если можно сообщить)
Ш.Р.Ю.-программист! йопта!!!
munthrekosh вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Бегущая строка при воспроизведении музыки. munthrekosh Мультимедиа в Delphi 2 19.02.2012 06:46
Бегущая строка Марат05 Общие вопросы C/C++ 1 27.05.2011 10:28
бегущая строка deadmer Общие вопросы C/C++ 0 29.08.2010 16:39
Бегущая строка SPQR10000 Общие вопросы .NET 6 17.03.2010 23:28