| [7110] イベント処理にご注意 | 返信 削除 |
| 2013/12/16 (月) 01:36:22 Mr.XRAY |
|
私が使っている検索ツールは，二チャンネルは検索対象から外しているのですが， 何かの検索をしていたら，そのリンクに二チャンネルがありました． まだ，こんなのがあるんですね．昔はよく見たような． 下の方からみていたら，ダウンロードできるファイルがあったので， ダウンロードしてみました． えーと，528 番のです． Delphi XE でプロジェクトを開こうとしたら，失敗． みたら，529 に XE4 と書いてあったけど，以下のサンプルを使用して Delphi XE でも使えるようにして，Delphi XE で起動してみました． [03_uses 部にユニットスコープ名を追加 ( Delphi XE2 以上用 )] コンパイルして，実行，Windows に付いてきている mp3 を開いて... ありゃー !!? 以下は，MediaPlayre1のOnNotifyイベントのコードです． procedure Tmp3.MediaPlayer1Notify(Sender: TObject); begin if FileListBox1.ItemIndex=FileListBox1.Items.Count-1 then FileListBox1.ItemIndex:=0 else FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1; MediaPlayer1.FileName := FileListBox1.FileName; MediaPlayer1.Rewind; MediaPlayer1.Play; end; この上のコードは，次のイベント処理と似ています． 上のコードは，ほとんどこれと近い再帰処理(に似た処理)を実行することになります． しかし，何でこんなコードになっちゃたんでしょうね． (調べる気も，記事を読み気もしませんので．これまで) procedure TForm1.Button1Click(Sender: TObject); begin Button1Click(Sender); end; もしかしたら，参考になるかも知れないので書いておきました． 私も気付かないでやることがあります．特にフック関係のサンプルの場合． 良い子の皆さんは，こんなことやらないと思いますが．  |