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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.04.2008, 22:49
SERЖant SERЖant вне форума
Начинающий
 
Регистрация: 22.03.2008
Адрес: г.Елец , Липецкой области , Россия
Сообщения: 104
Репутация: 7
По умолчанию Выделение в ListBox

Ситуация такая .Есть два ListBox и в них несколько строк. Как сделать так, чтобы когда я выделял стоку в одном ListBox'e (например с индексом 0 ) , во втором аналогично выделялясь строка (с этим же индексом). Заранее спасибо.
Ответить с цитированием
  #2  
Старый 13.04.2008, 22:55
Ozerich Ozerich вне форума
Новичок
 
Регистрация: 11.04.2008
Адрес: В городе-герой Минск
Сообщения: 69
Репутация: 10
По умолчанию

listbox2.itemindex:=0;
Ответить с цитированием
  #3  
Старый 13.04.2008, 23:18
Аватар для Winny
Winny Winny вне форума
Продвинутый
 
Регистрация: 26.05.2007
Адрес: Планета земля, Россия, Москва
Сообщения: 620
Репутация: 30
По умолчанию

Цитата:
Сообщение от Ozerich
listbox2.itemindex:=0;
Немного поправлю, на событие OnClick у ListBox1 пиши:
Код:
ListBox2.ItemIndex:=ListBox1.ItemIndex
__________________

Ответить с цитированием
  #4  
Старый 15.04.2008, 10:18
SERЖant SERЖant вне форума
Начинающий
 
Регистрация: 22.03.2008
Адрес: г.Елец , Липецкой области , Россия
Сообщения: 104
Репутация: 7
По умолчанию

Спасибо за помощь
Ответить с цитированием
  #5  
Старый 16.04.2008, 14:16
SERЖant SERЖant вне форума
Начинающий
 
Регистрация: 22.03.2008
Адрес: г.Елец , Липецкой области , Россия
Сообщения: 104
Репутация: 7
По умолчанию

Возник еще вопрос. Как высчитать общее количество строк в ListBox.
Ответить с цитированием
  #6  
Старый 16.04.2008, 15:00
xchrom xchrom вне форума
Начинающий
 
Регистрация: 08.04.2008
Сообщения: 177
Репутация: 15
По умолчанию

listbox.items.count
Ответить с цитированием
  #7  
Старый 18.04.2008, 08:10
SERЖant SERЖant вне форума
Начинающий
 
Регистрация: 22.03.2008
Адрес: г.Елец , Липецкой области , Россия
Сообщения: 104
Репутация: 7
По умолчанию

И еще. Делаю я плеер. Использую команду : FileName:=ListBox1.ItemIndex + 1 . Песня в плейлисте перескакивает на другую. А когда очередь доходит до последней , после ее завершения пишется ошибка : List index out of bounds (3). Можно как нибудь сделать так чтобы после завершения последней песни автоматически перебросилось на первую.
Ответить с цитированием
  #8  
Старый 18.04.2008, 11:58
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Код:
if ListBox1.ItemIndex = ListBox1.Items.Count - 1 then
ListBox1.ItemIndex:=0;
Вроде так
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием
  #9  
Старый 18.04.2008, 12:13
SERЖant SERЖant вне форума
Начинающий
 
Регистрация: 22.03.2008
Адрес: г.Елец , Липецкой области , Россия
Сообщения: 104
Репутация: 7
По умолчанию

Хорошо. Приду домой попробую.
Ответить с цитированием
  #10  
Старый 08.10.2008, 00:16
w1zard w1zard вне форума
Прохожий
 
Регистрация: 04.07.2008
Сообщения: 26
Репутация: 10
По умолчанию

Вопросик по той же теме... У меня при перетаскивании, перемешивании (Drag&Drop) элементов ListBox'a пропадает выделение. Посоветуйте пожалуйста, как сделать так, чтобы выделение оставалось на том элементе, на котором отпустили мышку.
Ответить с цитированием
  #11  
Старый 08.10.2008, 13:30
Roman_s Roman_s вне форума
Прохожий
 
Регистрация: 03.10.2008
Сообщения: 28
Репутация: 10
По умолчанию

А у меня такой вопрос:
Я тоже делаю плеер и плейлист у меня работает вот таким макаром
Код:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
MediaPlayer1.FileName := (String(ListBox1.Items[Listbox1.ItemIndex]));
MediaPlayer1.Open;
Mediaplayer1.Play;
end;
А следующий трек так:
Код:
procedure TForm1.Button7Click(Sender: TObject);
begin
MediaPlayer1.FileName := (String(integer(ListBox1.Items[Listbox1.ItemIndex+1])));
MediaPlayer1.Open;
Mediaplayer1.Play;
end;
Корочё у меня включается не следующий трек, а следующий ПОСЛЕ выделенного элемента. Помогите решить проблему !!!
Проще говоря нужно чтобы автоматически выделялся тот пункт в листбоксе который играет в данный момент !!!
Всем заранее спасибо !!!
__________________
CODDING - Штука тонкая !!!

Последний раз редактировалось Roman_s, 08.10.2008 в 13:37.
Ответить с цитированием
  #12  
Старый 08.10.2008, 13:41
w1zard w1zard вне форума
Прохожий
 
Регистрация: 04.07.2008
Сообщения: 26
Репутация: 10
По умолчанию

Roman_s, оно в принципе так и должно работать, ведь ты используешь ItemIndex+1. То есть программа получает команду брать имя трека из выделенного айтема плюс 1.
Могу ошибаться, но попробуй принудительно ставить выделение на нужном треке: listBox1.Selected(index);

Последний раз редактировалось w1zard, 08.10.2008 в 13:45.
Ответить с цитированием
  #13  
Старый 08.10.2008, 13:43
w1zard w1zard вне форума
Прохожий
 
Регистрация: 04.07.2008
Сообщения: 26
Репутация: 10
По умолчанию

Roman_s, оно в принципе так и должно работать, ведь ты используешь ItemIndex+1. То есть программа получает команду брать имя трека из выделенного айтема плюс 1.
Могу ошибаться, но попробуй принудительно ставить выделение на нужном треке: listBox1.Selected(index);
Ответить с цитированием
  #14  
Старый 08.10.2008, 13:49
Roman_s Roman_s вне форума
Прохожий
 
Регистрация: 03.10.2008
Сообщения: 28
Репутация: 10
По умолчанию

Мне нужно чтобы после нажатия Button7Click выделялась следующая песня
__________________
CODDING - Штука тонкая !!!
Ответить с цитированием
  #15  
Старый 08.10.2008, 14:07
mik mik вне форума
Прохожий
 
Регистрация: 17.09.2008
Сообщения: 33
Репутация: 10
По умолчанию

Тогда наверное надо еще делать так:

Код:
Listbox1.ItemIndex := Listbox1.ItemIndex+1;
Ответить с цитированием
Ответ


Delphi Sources

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

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

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter