| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ListView и редактирование InPlace

Андрей Молчанов ©   (2005-11-07 22:24:00) 

Использую ListView со свойством ReadOnly = False. В программе используются горячие клавиши Del и Enter, перед редактированием их надо отключать, а после - включать. Выключаю по событию OnEditing, а вот когда включать? Событие OnEdited вызывается только если данные были изменены. Как бороться?

---

Андрей Молчанов   (2005-11-08 18:16:00) [1]

begin...end, большое спасибо тебе! Наверное, напишу потомка TListView.

---

begin...end   (2005-11-08 08:49:00) [2]

> Андрей Молчанов   (07.11.05 22:24)
> Событие OnEdited вызывается только если данные были изменены.

Верно. По окончании редактирования генерируется уведомление LVN_ENDLABELEDIT. Оно содержит указатель на запись NMLVDISPINFO (это комбинация структур NMHDR и LVITEM), в котором находится информация об этом событии. Читаем в MSDN про LVN_ENDLABELEDIT:

If the user cancels editing, the pszText member of the LVITEM structure is NULL; otherwise, pszText is the address of the edited text.

Теперь смотрим в реализацию TCustomListView.CNNotify:

with Message do
   case NMHdr^.code of
     ...
     LVN_ENDLABELEDIT:
       with PLVDispInfo(NMHdr)^ do
         if (item.pszText <> nil)and (item.IItem <> -1) then
           Edit(item);
     ...

Т.е. если item.pszText = nil (а это означает, что пользователь отменил редактирование), до метода Edit дело не доходит (а именно в нём вызывается обработчик OnEdited). Поэтому события OnEdited и не происходит.

Вывод -- можно самостоятельно, без введения ограничений на содержимое item.pszText, обрабатывать уведомление LVN_ENDLABELEDIT (оно посылается в форме сообщения WM_NOTIFY родительскому окну ListView'а). Например, если parent'ом ListView'у приходится форма, то можно написать такой её обработчик:

uses CommCtrl;

type
 TMyForm = class(TForm)
   MyListView: TListView;
 private
   procedure WMNotify(var Message: TWMNotify); message WM_NOTIFY;
 end;

procedure TMyForm.WMNotify(var Message: TWMNotify);
begin
 with Message.NMHdr^ do
   if (hwndFrom = MyListView.Handle) and (code = LVN_ENDLABELEDIT) then
   begin
     // Ваши действия
   end
   else
     inherited
end

---

gdaujk   (2005-11-08 06:23:00) [3]

OnExit

---

Наверх