Delphi 2007中如何在无媒体环境下使用TMediaPlayer控件？

核心实现逻辑 #

你遇到的报错是因为控件点击后默认会执行内置的MCI设备操作逻辑，只要阻止该默认逻辑触发即可正常使用按钮功能，无需配置任何媒体参数：

• 首先保持AutoEnable属性为未勾选状态，确保按钮默认启用
• 为控件绑定OnClick事件，将事件参数的DoDefault值设为False，即可拦截默认的MCI调用，不会再抛出「No MCI Device Open」错误
• 在事件中根据点击的按钮类型，执行你自己的业务逻辑即可

代码示例 #

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean);
begin
  // 核心配置：禁止执行默认MCI操作
  DoDefault := False;
  case Button of
    btPlay:
      begin
        // 此处编写Run按钮对应的业务逻辑
      end;
    btStop:
      begin
        // 此处编写Stop按钮对应的业务逻辑
      end;
    btStep:
      begin
        // 此处编写Step按钮对应的业务逻辑
      end;
  end;
end;

可选优化配置 #

如果不需要TMediaPlayer自带的其他按钮，可修改VisibleButtons属性，仅保留btPlay、btStop、btStep三个按钮，简化界面显示。

内容的提问来源于stack exchange，提问作者rossmcm