TEdit でキーを押すたびにサウンド ファイルを再生するプログラムを作成しようとしています。
Edit1 KeyPress イベントでリソース ファイルから sndPlaySound を試しましたが、問題は実際のキーボード入力のようにサウンドが再生されないことです。キーを押すたびに音の再生に遅延があります。
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
sndPlaySound(PCHAR('KeyPress'), SND_RESOURCE OR SND_ASYNC);
end;
このコードはサウンドを再生しますが、すばやく入力すると、最後に入力したキーでのみサウンド ファイルが再生されます。