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

Andervers

Дата 18.2.2006, 21:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Начнём задавать тупые вопросы... smile

Есть ListBox, Memo, Image.

При выборе одного из пунктов ListBox должно меняться Image и Memo.
Memo должно брать инф. из внешнего *.txt

Для начала просто скажите, как сделать выделение(вроде: при щелчке на ListBox.ItemIndex:=1 then ....)

PS: Сразу хочу сказать, что прочесал FAQ и в поиске, ив Yandex'e прошелся, но не нашел

Это сообщение отредактировал(а) Andervers - 18.2.2006, 21:34

SoWa

Дата 18.2.2006, 21:39 (ссылка)

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

Загрузка ...

Харекришна

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

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

Цитата

ListBox.ItemIndex:=1

Это присваивание, а не условие.
условие:

Код


if listbox1.itemindex=x then
{for example}
begin
memo1.Lines.LoadFromFile(listbox1.items(ListBox1.ItemIndex));
Image1.Picture.loadFromFile('sample.bmp');
end;

А вообще почитай книжки для.... начинающих. Там есть все для человека твоего уровня.
PS
FAQ не поможет, т.к. там такие простые примеры не выкладывают.

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

Всем добра smile

Andervers

Дата 18.2.2006, 21:52 (ссылка)

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

Загрузка ...

Новичок

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

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

Просто до этого с ListBox'ом практически не работал...
А твой код - он при клике работае? Или при каком условии??

(Самому стыдно за такие вопросы))
Добавлено @ 22:02
Всё, можете не отвечать, разобрался))

SoWa

Дата 18.2.2006, 22:02 (ссылка)

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

Загрузка ...

Харекришна

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

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

Если загнать этот код в событие OnClick или OnDbClick, то по одному или двум кликам соответственно будет происходить это распознавание строчки и все вытекающие последствия. smile

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

Всем добра smile

Демо

Дата 18.2.2006, 22:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Код


procedure TForm1.ListBox1Click(Sender: TObject);
begin
    if ListBox1.Items.Count>0 then ShowMessage('Клик на '+IntToStr(ListBox1.ItemIndex)+' элементе');
end;

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

Snowy

Дата 20.2.2006, 10:28 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Но не будет изменяться при выборе с клавиатуры.
Если нужно фиксировать все, то лучше запоминать последнюю выбранную позицию, а в OnIdle проверять, не изменилась ли она.
Но проверять на клик проще. Многие программы проверяют только клик и Enter, а клавишами не выбирают.
Добавлено @ 10:30
Демо, нужна поправочка на то, что клик может быть в листбоксе, но не на пункте.
То есть я могу кликнуть ниже списка - клик все равно будет.

Демо

Дата 20.2.2006, 17:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Цитата(Snowy @ 20.2.2006, 10:28

)

То есть я могу кликнуть ниже списка - клик все равно будет.

Разве? Я вроде попробовал - не срабатывает OnClick. Ну да могу ошибаться...

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

Guedda

Дата 20.2.2006, 20:54 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Ну тогда можно еще одно условие сделать:

Код


if ListBox1.ItemIndex >=0 //...

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

Ll 2

Демо

Дата 20.2.2006, 20:55 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Код


procedure TForm1.ListBox1Click(Sender: TObject);
begin
        ShowMessage(IntToStr(TListBox(Sender).ItemIndex));
end;

Специально еще раз проверил. Срабатывает только в области, заполненной строками.
В другом месте OnClick не возникает.

Это сообщение отредактировал(а) Демо - 20.2.2006, 20:56

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

Snowy

Дата 20.2.2006, 22:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Цитата(Демо @ 20.2.2006, 20:55

)

Специально еще раз проверил. Срабатывает только в области, заполненной строками.

Угу. Это я с ListView спутал.

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