Обработка события OnChange ListView

[Oleg_SS]

Доброе время суток!
Помогите обработать событие OnChange ListView
Надо обработать событие только тогда, когда пользователь изменил статус CheckBox.
Дело в том, что это событие возникает при любом изменении, в том числе и программном, и во время создания формы.

[eval]

отписываетесь перед программным изменением, и подписываетесь после

[Oleg_SS]

Сообщение от eval

отписываетесь перед программным изменением, и подписываетесь после

это какое то свойство установить?
какое?

[eval]

OnChange естественно

[Oleg_SS]

вы меня не поняли
как раз OnChange мне и надо обработать, но только так, что бы это событие срабатывало только тогда, когда пользователь меняет что-то
как это сделать?

[eval]

см. пост #2

[eval]

ну все ж просто

...
self.ListView1.OnChange  := nil;
//тут (ан)чекаем чекбокс(ы)
self.ListView1.OnChange  := self.ListView1_OnChange;
...

[Аватар]

Лови WM_NOTIFY родителя ListView с уведомлением LVN_ITEMCHANGED и в структуре PNMListView анализируй 14-ый справа бит полей uNewState и uOldState

procedure TForm1.WMNotify(var Message: TWMNotify);
var p: PNMListView;
begin
  p:=PNMListView(Message.NMHdr);
  if (p^.hdr.hwndFrom=ListView1.Handle) and (p^.hdr.code=LVN_ITEMCHANGED) and
     ((p^.uNewState and $2000)<>(p^.uOldState and $2000)) then
    Label1.Caption:=ListView1.Items.Item[p^.iItem].Caption+' Checked='+IntToStr(Ord(ListView1.Items.Item[p^.iItem].Checked));
  inherited;
end;

[Oleg_SS]

Сообщение от Аватар

Лови WM_NOTIFY родителя ListView с уведомлением LVN_ITEMCHANGED и в структуре PNMListView анализируй 14-ый справа бит полей uNewState и uOldState

Это сложно для моего понимания.
Не знаю как это описать в форме.
Ругается на var p: PNMListView;
и наверное еще где-нибудь надо что то указать?
как прикрутить к форме это событие?

[Oleg_SS]

Сообщение от eval

ну все ж просто

...
self.ListView1.OnChange  := nil;
//тут (ан)чекаем чекбокс(ы)
self.ListView1.OnChange  := self.ListView1_OnChange;
...

Да про это я не подумал. Практически получилось. Вот только onChange вызывается даже тогда, когда просто выбираем строку не изменяя ее.
Это глюк самого delphi или это надо как то по особому обрабатывать?