delphi - 为什么 tmediaplayer 会延迟 tpanel 上的字幕更改？

Question

我是一名新手程序员，如果这对你们来说听起来很基础，那么我很抱歉。我有一个看起来(基本上)像这样的程序:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  panel1.caption:='This is a sentence';
  with MediaPlayer1 do
  begin
    filename:='f:\untitled.wma';
    open;
    wait:=true;
    play;
    close;
  end;
end;

问题是，在媒体播放器播放声音文件之前，panel1 上的标题不会更改；我需要同时更改标题和播放器开始播放。我怎样才能确保这一点？

我认为该过程将按顺序执行每行代码，这意味着 panel1 的标题发生变化，然后媒体播放器开始运行。我哪里出错了？

Answer 1

说明:

VCL 组件(如 TPanel)通常有一个名为 Invalidate() 的内部方法。当属性(如 Caption)更改并且该更改需要重新绘制控件的一部分(例如，绘制新的标题文本)时调用该函数。

此方法仅在窗口控件内设置一个标志，但不会调用重绘方法本身。这样做的原因是，如果一次更改许多属性(在短时间内按顺序更改)，请避免多次调用 Repaint() 方法。

当组件通过主消息循环(从应用程序的主线程 - GUI 线程处理)接收到要重绘的消息时，实际上会调用 Repaint() 方法。

你开始播放媒体播放器的方式是阻塞的，因为你将Wait属性设置为True，这使得播放器阻塞了调用线程(同样是主线程) )直到文件播放完毕。

这不会给主线程提供处理其消息队列并启动重绘的机会。

快速修复:

问题的快速解决方案可以是 becsystems 建议的解决方案，也可以是以下解决方案:

panel1.Caption := 'This is a sentence';
Application.ProcessMessages();

调用ProcessMessages()在开始播放文件之前，主线程将有机会处理消息队列并执行更新。

这是一个快速修复，因为主线程在开始播放后仍然会被阻塞，这将阻止窗口的其他部分重新绘制(例如，尝试在播放时移动窗口或最小化和最大化它)。

becsystems 建议的代码类似，但不是处理消息队列，而是强制控件重新绘制。

正确修复:

要正确解决此问题，您不应使用 Wait 属性，而应处理媒体播放器的 OnNotify 事件。

这是一个示例，改编自Swiss Delphi Center (未测试，因为我目前没有安装 Delphi):

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  panel1.Caption := 'This is a sentence';
  with MediaPlayer1 do
  begin
    Notify := True;
    OnNotify := NotifyProc;
    Filename := 'f:\untitled.wma';
    Open;
    Play;
  end;
end;

procedure TForm1.NotifyProc(Sender: TObject);
begin
  with Sender as TMediaPlayer do 
  begin
    case Mode of
      mpStopped: {do something here};
    end;

    // Set to true to enable next-time notification
    Notify := True;
  end;
end;

旁注:

此处发布了 VCL 消息循环的简短说明(Delphi 开发人员指南的一部分):

Anatomy of a Message System: VCL

另外，与问题无关，但看看Delphi Coding Style Guide 。当发布的代码被格式化时真是太好了。