くだすれDelphi(超初心者用)その55at TECHくだすれDelphi(超初心者用)その55 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト250:229 13/05/10 23:42:57.67 .net >>240 解決して何よりだ ここまで付き合った甲斐があった ひとつだけ >MediaPlayerに回しますが、FileListBoxの中身が空なので 日本語的な問題なのかも知れないけど 最初にこのイベントに来た時は空からリストにファイル名が入った時なので 「FileListBoxの中身が空」ではない あくまでも FileListBox1.FileName プロパティが「空文字」になっている(未選択状態だから)ということ 説明するより早いから新規プロジェクトのフォームに Memo1 FileListBox1 の二つを置く フォームをWクリックして procedure TForm1.FormCreate(Sender: TObject); begin FileListBox1.Directory:='e:\'; with Memo1.Lines do begin Clear;//メモをクリア Add('01━━FormCreate ここから'); Add('02━━起動時のリスト:'+FileListBox1.Items.Text); Add('03━━選択されたファイル名:'+FileListBox1.FileName); Add('04━━FormCreate ここまで'); end; end; つづく 251:229 13/05/10 23:43:51.91 .net FileListBox1 をWクリックして procedure TForm1.FileListBox1Change(Sender: TObject); begin with Memo1.Lines do begin Add('05━━FileListBox1Change ここから'); Add('06━━OnChange 起動時のリスト:'+FileListBox1.Items.Text); Add('07━━OnChange 選択されたファイル名:'+FileListBox1.FileName); Add('08━━FileListBox1Change ここまで'); end; end; FileListBox1 を選択した状態でオブジェクトインスペクタのイベントタブを開く OnClick の右側の空欄をWクリックして procedure TForm1.FileListBox1Click(Sender: TObject); begin with Memo1.Lines do begin Add('09━━FileListBox1Click ここから'); Add('10━━OnClick 起動時のリスト;'+FileListBox1.Items.Text); Add('11━━OnClick 選択されたファイル名:'+FileListBox1.FileName); Add('12━━FileListBox1Click ここまで'); end; end; これでメモの内容を見ればイベントの起こっている順番とか内容とかがよく分かるはず 空文字がわかりにくいので↓にしても可 if FileListBox1.FileName='' then Add('03━━【何も選択されていない】'+FileListBox1.FileName) else Add('03━━選択されたファイル名:'+FileListBox1.FileName); 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch