Родились сегодня:
Антонина


Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Модератор

672

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

325

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Академик

278

Россия, Санкт-Петербург


ID: 325460

CradleA

Академик

211

Беларусь, Минск


ID: 401888

puporev

Профессор

140

Россия, Пермский край


ID: 400815

alexleonsm

6-й класс

130


ID: 137394

Megaloman

Мастер-Эксперт

120

Беларусь, Гомель


8.8.12

06.05.2021

JS: 2.8.16
CSS: 4.5.4
jQuery: 3.6.0
DataForLocalStorage: 2021-05-06 21:16:03-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 159587

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Даниил Цветков
Дата: 04.02.2009, 12:07 Консультация закрыта
Поступило ответов: 2

Здравствуйте, уважаемые эксперты!
Имеем:
1) Delphi 7 Enterprise.
2) ListBox1 с неизвестным количеством строк.
3) Свойство MultiSelect стоит равным True.
Нужно:
1) По двойному щелчку на строке отобразить её содержание в Label1.
Проблема:
1) Не понимает свойств ItemIndex и Selected.

Помогите, пожалуйста решить эту проблему!!! Всё утро бьюсь - не хочет в Label1 строчку помещать.

Ответ # 242878 от monah
Здравствуйте, Даниил Цветков!
Свойство Selected - является указателем на элемент. а не содержит выделеный. используйте конструцию
for i:=0 to listBox1.count-1 do
if ListBox1.selected[i] then ....

monah

Посетитель
04.02.2009, 12:23
Ответ # 242882 от Евгений/Genia007/
Здравствуйте, Даниил Цветков!
Из Вашего вопроса не совсем понятно причём здесь свойство MultiSelect компонента ListBox1, ведь при двойной клике по строчке все выделения снимаются и срабатывает обработчик только с одной выделенной строчкой. Код получается очень простой:
Код
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  Label1.Caption:= ListBox1.Items[ListBox1.ItemIndex];
end;

Евгений/Genia007/

Профессионал
04.02.2009, 12:52
Мини-форум консультации # 159587

q_id

Вадим Исаев ака sir Henry

Мастер-Эксперт

ID: 425

1

= общий =    04.02.2009, 12:52

Проблема:
1) Не понимает свойств ItemIndex и Selected.

Даниил Цветков

Напишите, как именно Вы используете ItemIndex и Selected. Мне отчего то кажется, что проблема вовсе не в Delphi. smile

=====
Я только в одном глубоко убеждён - не надо иметь убеждений! :)

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 140

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 74

Вадим Исаев ака sir Henry

Мастер-Эксперт

Рейтинг: 2

Степанов Иван /REDDS

4-й класс

Рейтинг: 1

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0