标签:
[weak] FMusicPlayer: TMusicPlayer;
[weak]修饰, 编译器在处理这个变量的时候不会调用该变量内容的__ObjAddRef和__ObjRelease.
procedure DoUpdateUI(newPos: Single);//更新进度条
procedure UpdateNowPlaying(newIndex: Integer);//当前播放歌曲名称等信息
procedure UpdateSongs;//添加歌曲列表
procedure SongChanged(newIndex: Integer);//切换歌曲
procedure StateChanged(state: TMPPlaybackState);//更新播放、暂停等几个按钮Enabled
procedure TFMXMusicPlayerFrm.DoUpdateUI(newPos: Single); var handler: TNotifyEvent; begin handler := tbProgress.OnChange; tbProgress.OnChange := nil; tbProgress.Value := newPos; tbProgress.OnChange := handler; end;
MusicPlayer.Utils公共变量等方法定义。
标签:
原文地址:http://www.cnblogs.com/cb168/p/5078026.html