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

我是一个新手程序员，所以对所有人来说，如果这听起来很基础，那么请您道歉。
我有一个看起来(基本上)像这样的过程:

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的标题将发生变化，随后媒体播放器将开始起作用。我哪里出问题了？

最佳答案

设置标题后添加Refresh调用，即:

panel1.caption:='This is a sentence';
Refresh;

关于delphi - 为什么tmediaplayer会延迟字幕在tpanel上的更改？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/40275005/