[Amzi]

Как в PageControl отобразить папку, чтобы она была по размеру самой PageControl,к примеру юзер указал папку в которой находится музыка и вся музыка показывалась в виде списка в page control ?

[poli-smen]

Сообщение от Amzi

Как в PageControl отобразить папку, чтобы она была по размеру самой PageControl,к примеру юзер указал папку в которой находится музыка и вся музыка показывалась в виде списка в page control ?

К сожалению TPageControl не умеет отображать папки.
Для отображения списков используй TListBox, TListView, TStringGrid и т.п.
А ещё папки с файлами может отображать TShellListView.

[Amzi]

Сообщение от poli-smen

К сожалению TPageControl не умеет отображать папки.
Для отображения списков используй TListBox, TListView, TStringGrid и т.п.
А ещё папки с файлами может отображать TShellListView.

Спасибо,но вопрос остался тот же,как тогда отобразить списки в TListBox.
Если можно с кодом.

[NumLock]

Код:

begin
  SendMessage(ListBox1.Handle, LB_DIR, $3f, LPARAM(PChar('c:\WINDOWS\system32\*.dll')));
end;

[poli-smen]

Сообщение от NumLock

Код:

begin
  SendMessage(ListBox1.Handle, LB_DIR, $3f, LPARAM(PChar('c:\WINDOWS\system32\*.dll')));
end;

Прикольно. Первый раз такое вижу

[Amzi]

Сообщение от NumLock

Код:

begin
  SendMessage(ListBox1.Handle, LB_DIR, $3f, LPARAM(PChar('c:\WINDOWS\system32\*.dll')));
end;

А можно сделать не названия файлов,а сами файлы?

[poli-smen]

Сообщение от Amzi

А можно сделать не названия файлов,а сами файлы?

Что значит сами файлы? Ты явно чего-то не то хочешь.

[Amzi]

Сообщение от poli-smen

Что значит сами файлы? Ты явно чего-то не то хочешь.

Ну если делать так

Код:

begin
SendMessage(ListBox1.Handle, LB_DIR, $3f, LPARAM(PChar('C:\Users\Tom\Desktop\My files\музыка\*.mp3')));

выходят только названия. Мне нужно что-бы вышли сами .mp3 файлы в виде списка. Которые можно открыть удалить и.т.д

[NumLock]

обработай пешком клик (двойной) на ListBox и нажатие Del на нем.

[poli-smen]

Сообщение от Amzi

Ну если делать так

Код:

begin
SendMessage(ListBox1.Handle, LB_DIR, $3f, LPARAM(PChar('C:\Users\Tom\Desktop\My files\музыка\*.mp3')));

выходят только названия. Мне нужно что-бы вышли сами .mp3 файлы в виде списка. Которые можно открыть удалить и.т.д

Т.е. если к имени файла дорисовать иконку, то это уже получается не просто имя файла, а сам файл собственной персоной что-ли? Смешно

[Amzi]

Сообщение от poli-smen

Т.е. если к имени файла дорисовать иконку, то это уже получается не просто имя файла, а сам файл собственной персоной что-ли? Смешно

открой у себя папку с mp3 и поставь вид списком.....

[Amzi]

Сообщение от NumLock

обработай пешком клик (двойной) на ListBox и нажатие Del на нем.

Код:

procedure TForm2.ListBox1DblClick(Sender: TObject);
begin
ShellExecute(0, 'open',  'winamp.exe',nil, nil, SW_NORMAL)
end;

Когда кликаешь на файл в listbox,просто открывается winamp
как открыть файл ?

[poli-smen]

Сообщение от Amzi

открой у себя папку с mp3 и поставь вид списком.....

И я увижу список файлов с иконками, но я не увижу САМИ mp3 файлы. Файлы вообще невозможно увидеть.

Сообщение от Amzi

Код:

procedure TForm2.ListBox1DblClick(Sender: TObject);
begin
ShellExecute(0, 'open',  'winamp.exe',nil, nil, SW_NORMAL)
end;

Когда кликаешь на файл в listbox,просто открывается winamp
как открыть файл ?

Попробуй вместо 'winamp.exe' указать имя mp3-файла с путём к нему.

[Amzi]

Открывается папка где находится файл))

[poli-smen]

Сообщение от Amzi

Открывается папка где находится файл))

А ты указал там только имя папки? А имя mp3-файла указал?