Цитата:
|
Сообщение от angvelem
При выполнении OpenDialog1.Execute следует код
на кнопку будет так
Код:
if OpenDialog1.Execute then
begin
isPlayed := False;
BASS_ChannelStop(ChanPlay);
FreeBuffer;
OpenFileName;
AllocateWaveData;
isPlayed := True;
end; |
И тот большой код не требуется? Все заменяется эти маленьким компактным кодом?