ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TListView.OnChange - двойное срабатывание
6 сообщений из 6, страница 1 из 1
TListView.OnChange - двойное срабатывание
    #39661709
Правильный Вася
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Правильный Вася
Участник
Вообще-то меня интересует ситуация, когда просто меняется выбранная строка в режиме vsReport.
Когда кликаю на другую строку, вот этот код отрабатывает трижды, причем 1 и 3-й разы дают одинаковый результат.
Код: pascal
1.
2.
3.
4.
if Change = ctState then
	showmessage( 'change= '+ IntToStr( Change ) + CrLf +
                 'nil selected= ' + BoolToStr( lv.Selected = nil ) + CrLf +
                 'item selected= ' + BoolToStr( Item = lv.Selected ) );


Как я понимаю, сначала состояние меняется с выбранного на невыбранный, потом с невыбранного на новый выбранный элемент списка. Но как узнать, что это именно новый выбранный, а не покидаемый старый?

Надеюсь, понятно объяснил.
...
Рейтинг: 0 / 0
17.06.2018, 17:47
| Ответить | Цитировать | Написать  
TListView.OnChange - двойное срабатывание
    #39661714
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Для начала воспроизведи на чистом проекте. Не получится - ищи свой код, который меняет
выбранность пункта.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
17.06.2018, 18:02
| Ответить | Цитировать | Написать  
TListView.OnChange - двойное срабатывание
    #39661729
Правильный Вася
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Правильный Вася
Участник
Вполне универсальный ответ.
Но, как и любая универсальная штуковина, практически бесполезен в конкретном случае.

У меня нет никаких посторонних обработок ListView.
И в чистом проекте (да, я его таки создал) все повторилось как и написано ранее.
...
Рейтинг: 0 / 0
17.06.2018, 20:15
| Ответить | Цитировать | Написать  
TListView.OnChange - двойное срабатывание
    #39661741
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
Правильный ВасяНо как узнать, что это именно новый выбранный, а не покидаемый старый?Item.Focused? Или тупо сохранять "его" в переменной ?
...
Рейтинг: 0 / 0
17.06.2018, 21:12
| Ответить | Цитировать | Написать  
TListView.OnChange - двойное срабатывание
    #39661752
Правильный Вася
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Правильный Вася
Участник
Спасибо.
...
Рейтинг: 0 / 0
17.06.2018, 21:49
| Ответить | Цитировать | Написать  
TListView.OnChange - двойное срабатывание
    #39661827
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
Listview, как и Combobox, местами сделан очень коряво. Самый простой вариант - сохранять предыдущий элемент. Можно даже обернуть это в класс-наследник, выделить в отдельный юнит и с помощью трюка подмены класса иметь этот класс-наследник даже для визуально кинутых на форму компонентах. Но надо помнить, что фокусированного элемента может и не быть, а также проследить случай, когда фокусированный элемент удаляется.
...
Рейтинг: 0 / 0
18.06.2018, 09:51
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TListView.OnChange - двойное срабатывание
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39661729&tid=2040736]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 168ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 197ms
total:  416ms
созд. / загр.: 416ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]