头两天介绍了开源控件包alcinoe,现在利用其中的ALVideoPlayerSurface视频播放控件,实作一个视频播放器. 首先,建一个fmx项目,然后从组件面版,拖放一个TAlVideoPlayerSurface组件. 设置对齐方式为Client,占整个窗大小,然后再放一个Button,实现Click事件: procedure TForm3.Button1Click(Sender: TObject); begin if ALVideoPlayerSurface1.VideoPlayer.s…