Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Перезагрузить страницу

PageControl

Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 15.10.2012, 13:25
Amzi Amzi вне форума
Прохожий
  
Регистрация: 10.10.2012
Сообщения: 26
Репутация: 10
По умолчанию PageControl
Как в PageControl отобразить папку, чтобы она была по размеру самой PageControl,к примеру юзер указал папку в которой находится музыка и вся музыка показывалась в виде списка в page control ?
Ответить с цитированием
  #2  
Старый 15.10.2012, 13:31
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
  
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию
Цитата:
Сообщение от Amzi
Как в PageControl отобразить папку, чтобы она была по размеру самой PageControl,к примеру юзер указал папку в которой находится музыка и вся музыка показывалась в виде списка в page control ?
К сожалению TPageControl не умеет отображать папки.
Для отображения списков используй TListBox, TListView, TStringGrid и т.п.
А ещё папки с файлами может отображать TShellListView.
Ответить с цитированием
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
Amzi (15.10.2012)
  #3  
Старый 15.10.2012, 13:53
Amzi Amzi вне форума
Прохожий
  
Регистрация: 10.10.2012
Сообщения: 26
Репутация: 10
По умолчанию
Цитата:
Сообщение от poli-smen
К сожалению TPageControl не умеет отображать папки.
Для отображения списков используй TListBox, TListView, TStringGrid и т.п.
А ещё папки с файлами может отображать TShellListView.
Спасибо,но вопрос остался тот же,как тогда отобразить списки в TListBox.
Если можно с кодом.
Ответить с цитированием
  #4  
Старый 15.10.2012, 13:56
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
  
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию
Код:
1
2
3
begin
  SendMessage(ListBox1.Handle, LB_DIR, $3f, LPARAM(PChar('c:\WINDOWS\system32\*.dll')));
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо NumLock за это полезное сообщение:
Amzi (15.10.2012), poli-smen (15.10.2012)
  #5  
Старый 15.10.2012, 14:00
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
  
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию
Цитата:
Сообщение от NumLock
Код:
1
2
3
begin
  SendMessage(ListBox1.Handle, LB_DIR, $3f, LPARAM(PChar('c:\WINDOWS\system32\*.dll')));
end;
Прикольно. Первый раз такое вижу
Ответить с цитированием
  #6  
Старый 15.10.2012, 14:14
Amzi Amzi вне форума
Прохожий
  
Регистрация: 10.10.2012
Сообщения: 26
Репутация: 10
По умолчанию
Цитата:
Сообщение от NumLock
Код:
1
2
3
begin
  SendMessage(ListBox1.Handle, LB_DIR, $3f, LPARAM(PChar('c:\WINDOWS\system32\*.dll')));
end;
А можно сделать не названия файлов,а сами файлы?
Ответить с цитированием
  #7  
Старый 15.10.2012, 14:17
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
  
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию
Цитата:
Сообщение от Amzi
А можно сделать не названия файлов,а сами файлы?
Что значит сами файлы? Ты явно чего-то не то хочешь.
Ответить с цитированием
  #8  
Старый 15.10.2012, 14:23
Amzi Amzi вне форума
Прохожий
  
Регистрация: 10.10.2012
Сообщения: 26
Репутация: 10
По умолчанию
Цитата:
Сообщение от poli-smen
Что значит сами файлы? Ты явно чего-то не то хочешь.
Ну если делать так
Код:
1
2
begin
SendMessage(ListBox1.Handle, LB_DIR, $3f, LPARAM(PChar('C:\Users\Tom\Desktop\My files\музыка\*.mp3')));
выходят только названия. Мне нужно что-бы вышли сами .mp3 файлы в виде списка. Которые можно открыть удалить и.т.д
Последний раз редактировалось Amzi, 15.10.2012 в 14:31.
Ответить с цитированием
  #9  
Старый 15.10.2012, 14:45
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
  
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Смех
обработай пешком клик (двойной) на ListBox и нажатие Del на нем.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
Amzi (15.10.2012)
  #10  
Старый 15.10.2012, 15:08
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
  
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию
Цитата:
Сообщение от Amzi
Ну если делать так
Код:
1
2
begin
SendMessage(ListBox1.Handle, LB_DIR, $3f, LPARAM(PChar('C:\Users\Tom\Desktop\My files\музыка\*.mp3')));
выходят только названия. Мне нужно что-бы вышли сами .mp3 файлы в виде списка. Которые можно открыть удалить и.т.д
Т.е. если к имени файла дорисовать иконку, то это уже получается не просто имя файла, а сам файл собственной персоной что-ли? Смешно
Ответить с цитированием
  #11  
Старый 15.10.2012, 15:21
Amzi Amzi вне форума
Прохожий
  
Регистрация: 10.10.2012
Сообщения: 26
Репутация: 10
По умолчанию
Цитата:
Сообщение от poli-smen
Т.е. если к имени файла дорисовать иконку, то это уже получается не просто имя файла, а сам файл собственной персоной что-ли? Смешно
открой у себя папку с mp3 и поставь вид списком.....
Ответить с цитированием
  #12  
Старый 15.10.2012, 15:24
Amzi Amzi вне форума
Прохожий
  
Регистрация: 10.10.2012
Сообщения: 26
Репутация: 10
Радость
Цитата:
Сообщение от NumLock
обработай пешком клик (двойной) на ListBox и нажатие Del на нем.
Код:
1
2
3
4
procedure TForm2.ListBox1DblClick(Sender: TObject);
begin
ShellExecute(0, 'open',  'winamp.exe',nil, nil, SW_NORMAL)
end;
Когда кликаешь на файл в listbox,просто открывается winamp
как открыть файл ?
Ответить с цитированием
  #13  
Старый 15.10.2012, 15:30
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
  
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию
Цитата:
Сообщение от Amzi
открой у себя папку с mp3 и поставь вид списком.....
И я увижу список файлов с иконками, но я не увижу САМИ mp3 файлы. Файлы вообще невозможно увидеть.

Цитата:
Сообщение от Amzi
Код:
1
2
3
4
procedure TForm2.ListBox1DblClick(Sender: TObject);
begin
ShellExecute(0, 'open',  'winamp.exe',nil, nil, SW_NORMAL)
end;
Когда кликаешь на файл в listbox,просто открывается winamp
как открыть файл ?
Попробуй вместо 'winamp.exe' указать имя mp3-файла с путём к нему.
Ответить с цитированием
  #14  
Старый 15.10.2012, 15:40
Amzi Amzi вне форума
Прохожий
  
Регистрация: 10.10.2012
Сообщения: 26
Репутация: 10
По умолчанию
Открывается папка где находится файл))
Ответить с цитированием
  #15  
Старый 15.10.2012, 15:45
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
  
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию
Цитата:
Сообщение от Amzi
Открывается папка где находится файл))
А ты указал там только имя папки? А имя mp3-файла указал?
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >

« Предыдущая тема | Следующая тема »

Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Линейный вид Линейный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 05:24.

Обратная связь - Главная страница сайта Delphi Sources - Вверх

 

Сайт

Форум

FAQ

Соглашения

Прочее
 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025