//Получаем состояние

function TVGetCheck(TV: HWND; Node: HTreeItem): Boolean;

var

 Item: TTVItem;

begin

 Result := False;

 if not Assigned(Node) then Exit;

 with Item Do

  begin

   hItem := Node;

   mask  := TVIF_STATE or TVIF_HANDLE;

   stateMask := TVIS_STATEIMAGEMASK;

   SendMessage(TV, TVM_GETITEM, 0, Integer(@Item));

// TreeView_GetItem(Node.Handle, TVItem);

   Result := Bool((State and $2000) shr 13);

//   Result := Bool((State and INDEXTOSTATEIMAGEMASK(2)) shr INDEXTOSTATEIMAGEMASK(1));

  end; {With}

end;

 

//Устанавливаем или снимаем птичку

procedure TVSetChecked(ItemId: HTreeItem; Checked: Boolean);

var

 Item :TTVItem;

begin

 FillChar(Item, SizeOf(TTVItem), 0);

 with Item do

 begin

   hItem     := ItemId;

   Mask      := TVIF_STATE;

   StateMask := TVIS_STATEIMAGEMASK;

   if Checked then

     Item.State :=TVIS_CHECKED

   else

     Item.State :=TVIS_CHECKED shr 1;

   TreeView_SetItem(hTreeView, Item);

 end;

end;

 

 

//Где-то в программе

   WM_NOTIFY:

    case PNMTreeView(lp)^.hdr.code of

     TVN_SELCHANGING:

         //Если пункт отмечен...

         if TreeView_GetChecked(hTreeView, PNMTreeView(lp)^.itemNew.hItem) then begin

           TVSetChecked(PNMTreeView(lp)^.itemNew.hItem, False); //удаляем отметку

         end else begin

           TVSetChecked(PNMTreeView(lp)^.itemNew.hItem, True); //ставим отметку

         end;

 if TreeView_GetChecked(hTreeView, PNMTreeView(lp)^.itemNew.hItem)