VPF::Страсти по ListBox - Форум программистов

_nameless

Дата 6.5.2007, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 3.5.2007

Репутация: нет
Всего: нет

Доброго все вечера...
Прошу прошения....но название тему слегка попутал! smile

Я новичек...так, что не ругайтесь... smile

Мысль в следующем...
Нужены примеры работы с ListBox. А конкретно, при нажании Button, в ListBox загружается, к примеру, TXT-файл(в нем сохраненный ранее список файлов( в данном случае *.avi) ). При выборе определенного пункта должен проигроваться соответствующий данному пункту видеофайл[*.avi](все видео находится в конкретной дериктории) на отдельной форме с TMediaPlayer.
Сделал малость и то по кускам...
Как это все грамотно реализовать....принимаются любые советы, примеры, указания! smile

Это сообщение отредактировал(а) _nameless - 6.5.2007, 23:04

Sunvas

Дата 6.5.2007, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 2
Всего: 89

_nameless, делать тут за тебя никто не будет. Помочь-поможем.
Может зря снова медиаплеер делать??
Для начала:

Код


listbox1.items.loadfromfile

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

MetalFan

Дата 6.5.2007, 23:14 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

а что конкретно не работает, не получается?
пока каких-то определенных вопросов не наблюдаю

--------------------

There are always someone smarter than you...

_nameless

Дата 6.5.2007, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 3.5.2007

Репутация: нет
Всего: нет

Цитата

_nameless, делать тут за тебя никто не будет

А то я без тебя не знал...умник!
Я просил совет...либо ссылку на нечто подобное, если таковая имеется.
А за совет спасибо{оно мне и надо было}....сейчас поэксперементирую....с этим.

Цитата

Может зря снова медиаплеер делать??

У меня нет более оптимального варианта. Знаний маловато...пока учимся!

MetalFan, трабла в том, как события выбранным пунктам в ListBox примострячить...немогу понять как проиграть эти чертовы avi.

Это сообщение отредактировал(а) _nameless - 6.5.2007, 23:26

Albinos_x

Дата 7.5.2007, 02:40 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

Код

...
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex<>-1 then
   ShowMessage('Âû âûáðàëè ñòðîêó ¹ '+IntToStr(ListBox1.ItemIndex)+' è ñòðîêó ñîäåðæàùèþ '+ListBox1.Items.Strings[ListBox1.ItemIndex])
   else
   ShowMessage('Âû íè÷åãî íå âûáðàëè');
end;
...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

lukas

Дата 7.5.2007, 06:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

А что там, у листбокса есть обработчики OnClick и OnDbClick - юзай на здоровье...

Например:

Код


procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
if fileexists(listbox1.items.strings[listbox1.itemindex]) then  begin

  mp.filename=listbox1.items.strings[listbox1.itemindex];
  mp.open;
  mp.play;
end;
end;

Все легко...

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

it_medved

Дата 7.5.2007, 18:15 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 171
Регистрация: 1.5.2007
Где: Днепропетровск

Репутация: нет
Всего: 1

Вы все неправы, с Clist надо работать так -

Код


CList <CFile> m_ctrlList;
m_ctrlList = new CList();
POSITION pos = m_ctrlList->GetPosition();
CFile file;
for(int i=0; i<m_ctrlList.GetCount(); i++)
{
file = m_ctrlList.GetNext(pos);
}

вот так вот

_nameless

Дата 7.5.2007, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 3.5.2007

Репутация: нет
Всего: нет

Спасибо всем, проблема решена своими силами........после бессоной ночи. smile

За приведенные примеры, Господа, благодарствую....лишним не будет.

it_medved, объяснись....подробней. Это что-то новинькое. smile

Это сообщение отредактировал(а) _nameless - 7.5.2007, 20:54

skyboy

Дата 7.5.2007, 21:22 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

Цитата(_nameless @ 7.5.2007, 19:52

)

Это что-то новинькое

это "старенькое". Это С++

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »