TListbox 에 파일을 불러오려 하는데 다중 선택 을 하여도 하나만 불러오네요..
OpenDlg에서는 ofAllowMultiSelect 를 True 로 했구여 다중 선택으로 불러오는 방법좀 부탁 드립니다...
procedure TfrmSoundPlayer.BTOpenFileClick(Sender: TObject);
begin
if mOpenDlg.Execute then
begin
MusicFile[mMusicList.items.count] := mOpenDlg.fileName;
mMusicList.Items.Add(ExtractFileName(mOpendlg.FileName));
if mMusicList.Count = 1 then
mMusicList.ItemIndex := 0;
end;
end;
확인해 보세요.
<!--CodeS-->
if OpenDialog1.Execute then
begin
Memo1.Lines := OpenDialog1.Files;
end;
<!--CodeE-->