Oppure

Loading
19/12/06 14:28
awall
Salve
Sto programmando per Audio tre files insieme ogni il pulsante (button) come un esempio:

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:='Australia';

MediaPlayer1.FileName:='c:\benvenuto.wav';
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
mediaplayer1.Wait:=true;
MediaPlayer1.Play;

MediaPlayer1.FileName:='c:\benvenuto1.wav';
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
mediaplayer1.Wait:=true;
MediaPlayer1.Play;

MediaPlayer1.FileName:='c:\canto.wav';
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
mediaplayer1.Wait:=true;
MediaPlayer1.Play;
end;


Il problema che label1.caption:='Australia' viene visualizzata sempre dopo la fine dei suoni, invece dev'essere prima di suonare, perchè questi tre suoni duranno circa 2 minuti.
Come posso fare?

Spero di aver capito.
A presto.

Saluti da Walter.
aaa
19/12/06 15:43
awall
Scusate!! Sono riuscito a funzionare prima di suonare con button1.onEnter prima di .onclick

procedure TForm1.Button6Enter(Sender: TObject);
begin
label1.caption:='Australia';
end;

Tutto a posto!!!!;)
Grazie

Saluti da Walter.
aaa
19/12/06 17:27
delphiruby
Potresti anche provare con il comando refresh a voltre si tratta solo di costringere il programma a dare una rifrescata al video.

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:='Australia';

REFRESH; // potrebbe bastare

MediaPlayer1.FileName:='c:\benvenuto.wav';
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
mediaplayer1.Wait:=true;
MediaPlayer1.Play;
.........
......
aaa
20/12/06 13:50
awall

Grazie Mille!!:k: da Walter.
aaa