Метроном

[Костян Пират]

Решил сделать СВОЙ метроном...
в принципе чтоб стучал он получилось, только остановить ентого зверя не удается... ))) подскажите, плз, как заставить прогу проверять нажималась ли кнопка... где-то видел я такую штуку, но где.....

[Вавел из ГМТУ]

Завести глобальную переменую типа Boolean. Например MetronomEnabled : Boolean;

В обработчике Таймер таймера:
If MetronomEnabled = False Then Timer.Enabled := False;

В обработчике ОнКлик кнопки:
MetronomEnabled := False;

В обработчике ФормЛоад:
MetronomEnabled := True;

[Костян Пират]

проблема другая... Timer ни к черту не подходит... тормозит... так что получается не метроном, а чОрт знает что... пробую sleep'ом, вот так:

type
<...>
    mpl: TMediaPlayer;
<...>

const
 wav = 'sound.wav';

var
 int: integer;

const
 wav = 'sound.wav';

var
 int: integer;

procedure TForm1.Playing;
begin
 mpl.Play;
 sleep(int);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not play then play:=true
             else play:=false;

 while play do Playing;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 int:= 1000;

 mpl.FileName:=wav;
 mpl.Open;
end;

[s.Creator]

У меня с таймером не тормозит.
Единственное поставил

MediaPlayer1.Wait := False;

[Костян Пират]

s.Creator, спасибо, примерно то же я и делал первоначально с таймером... но как он ведет себя видимо от проца зависит, а он у меня не ахти... хотел просто попробовать со sleep, может лучше будет вести себя...

[s.Creator]

Тогда попробуй так:

procedure TForm1.Playing;
begin
 mpl.Play;
 sleep(int);
 Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 play:=true;
 while play do Playing;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  play:=false;
end;

[s.Creator]

еще нашел статью про высокоточный таймер (не проверял)
http://www.webdelphi.ru/2009/08/vyso...svoimi-rukami/