- くだすれDelphi(超初心者用)その56
111 ：43[sage]：2014/10/28(火) 00:39:33.92 ID:Ci5+5iZ6 - 上の方で音声の再生のことで聞いた者です
|
- くだすれDelphi(超初心者用)その56
112 ：43[sage]：2014/10/28(火) 00:50:29.53 ID:Ci5+5iZ6 - 流れちゃった…
再生ボタン①とFileListBoxに出ているファイルリストを1つずらすボタン（次の曲）②
のソフトを作っていていますが、notfyイベントが起きたときに②を押しますが
ボタン①でwavを流しているときに、②ボタンをおしてカーソルを移動した後
①の先頭から処理をさせるにはどうしたら良いんでしょうか？
分かりにくい文で済みません
|
- くだすれDelphi(超初心者用)その56
115 ：43[sage]：2014/10/28(火) 10:07:45.11 ID:Ci5+5iZ6 - >>113
済みません
省略しすぎでした。
まずはwavがまともに扱えられねばと言うことでやってます。
TMediaPlayerには再生に必要な手続きをとっています。
playボタンを押すとnotfyがfalseにセットします。
曲の再生終了でnotfy=TrueになりOnNotfyイベントで
FileListBoxを1つ移動させます（次曲ボタン処理）。
この時に次曲ボタンを押してPlayボタンのprocedureの頭からまた
再生するにはどうしたら良いのでしょうか？
BASICで言う所のgosub,return処理みたいなことを行いたいのです。
ソースを見ていただいた方が早いでしょうか？
よろしくお願いいたします。
皆さんは、delphiの知識というのは何から学ばれているのでしょうか？
|
- くだすれDelphi(超初心者用)その56
121 ：デフォルトの名無しさん[sage]：2014/10/28(火) 19:40:18.36 ID:Ci5+5iZ6 - すいません
本人がどう説明していいか分からなくて…
>>117のような感じで
Button1の処理の最中にButton2を呼び出して
Button1の処理を最初からやる感じなんですが。
|
- くだすれDelphi(超初心者用)その56
124 ：デフォルトの名無しさん[sage]：2014/10/28(火) 20:45:49.44 ID:Ci5+5iZ6 - procedure TForm1.PlaybtnClick(Sender: TObject);
begin①
MediaPlayer1.filename:=filelistbox1.FileName;
MediaPlayer1.Notify := false;
MediaPlayer1.open;
MediaPlayer1.Rewind;
MediaPlayer1.Play;
MediaPlayer1.Notify := True;
//ここでNextBtnClickの処理をさせたい
//ここでbegin①に戻りたい
end;
procedure TForm1.NextBtnClick(Sender: TObject);
begin
if FileListBox1.ItemIndex=FileListBox1.Items.Count-1 then
FileListBox1.ItemIndex:=0 else FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;
end;
こんな感じです。イロハのイだと思いますが、
調べても分からず困っています。
|