delphi – 为什么tmediaplayer会延迟更改tpanel上的标题？

发布时间：2020-12-15 04:11:28 所属栏目：大数据来源：网络整理

导读：我是一名新手程序员,如果这对你们所有人来说听起来非常基本,那么道歉. 我有一个程序看起来(基本上)像这样： procedure TForm1.BitBtn1Click(Sender: TObject);begin panel1.caption:='This is a sentence'; with MediaPlayer1 do begin filename:='f:untitl

我是一名新手程序员,如果这对你们所有人来说听起来非常基本,那么道歉.
我有一个程序看起来(基本上)像这样：

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的标题发生变化,然后媒体播放器开始行动.我哪里出错了？

解决方法

设置标题后添加刷新调用,即：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!