Таймер "замирает" при смене формы

[Stilet]

Чот не так. Кризис...

Что ж. Пусть мое мнение будет считаться ошибочно контрпродуктивным.
Стоит тогда автору темы показать свой проект.

P.S. Лично для меня это ничего не меняет.
P.P.S. Да. Я убедился что мои слова далеко не пустая болтовня, когда заглянул в генофонд. Так что по прежнему считаю что таймер вполне мог затормозиться при запуске модалки.

[min@y™]

ошибочно контрпродуктивным

эээээ... чо сказал-то? чо это значит?
я тут академиев не кончал, но высокое образование вам даду!

[Stilet]

чо это значит?

Это значит лишь то, что да

[Aliens_wolfs]

Пусть автор этой темы покажет часть кода где он создает форму

[Zis67]

Создаются обе формы сразу

Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;

Вторая форма вызывается кликом по пункту меню

procedure TForm1.g1Click(Sender: TObject);
begin
form2.ShowModal;
end;

Суть в том что в одном проекте это на таймер влияет (таймер распологается на второй форме и сразу работает, а вот после того как мы её открыли и закрыли подвисает пока снова не откроем) а в другом нет.
Собственно второй проект тестовый и кроме вызова формы и таймера там ничего нет...
Если это поможет могу выложить сырцы.

[Antony41]

Если это поможет могу выложить сырцы.

выкладывай

[min@y™]

Если это поможет могу выложить сырцы.

ты, для начала, мои посмотри. Там иодальная форма создаётся как автоматически, так и вручную.

[Aliens_wolfs]

А что этот таймер должен выполнять? В Вашем коде таймер должен работать

[Zis67]

showmomdal не мешает timerOn.zip
мешает timeroff.zip
Только я showmodal убрал, нынешний вариант работает. Вот это (unit1)

procedure TForm1.Y1Click(Sender: TObject);
begin
form2.Top:=form1.Top;
form2.Left:=form1.Left;
Form2.Visible:=true;
form1.Visible:=false;
end;

заменить этим:

procedure TForm1.Y1Click(Sender: TObject);
begin
form2.Top:=form1.Top;
form2.Left:=form1.Left;
Form2.Showmodal;
end;

Может там конфликтует что-то с таймером при закрытии второй формы\фокусе первой если открывать через шовмодал...
Писалось в Delphi 2010.
И до кучи bass.zip

Aliens_wolfs таймер может заполнять мемо или воспроизводить файл - результат один.

[Aliens_wolfs]

Посмотрел ваш код и вижу одну проблемку в коде
procedure TForm2.Timer1Timer(Sender: TObject);
begin
//inc(add);
//form1.memo1.lines.add(inttostr(add) );
BASS_ChannelPlay(BASS_StreamCreateF ile(False, PAnsiChar(AnsiString('C:\Documents and Settings\DreamWolf\Мои документы\ujntitled.wav')), 0, 0, 0), False);
end;
тут нужно делать проверку на то что воспроизводиться ли файл а то у вас идет постоянное открытие звукового файла в таймере, а нужно делать проверку если файл уже запущен его нужно уже не грузить

примерно так

var
PlayChan: Dword;

procedure TForm2.FormCreate(Sender: TObject);
begin
BASS_Init(1, 48100, BASS_DEVICE_3D, Handle, nil);
BASS_Start;
PlayChan:= BASS_ChannelPlay(BASS_StreamCreateF ile(False, PAnsiChar(AnsiString('C:\Documents and Settings\DreamWolf\Мои документы\ujntitled.wav')), 0, 0, 0), False);
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin

//Делаем проверку канала если стоп то запускаем заново
if BASS_ChannelIsActive(PlayChan) = BASS_ACTIVE_STOPPED then
BASS_ChannelPlay(PlayChan, False);
end;