Skip to main content

Example: OnHotTrackNode

The following sample utilizes the OnHotTrackNode event to change the cursor over the first level nodes to crHandPoint.

procedure <Form>.<TreeList>HotTrackNode(Sender: TcxCustomTreeList; ANode: TcxTreeListNode; AShift: TShiftState; var ACursor: TCursor);
begin
  if ANode.Level = 1 then
    ACursor := crHandPoint
  else
    ACursor := crDefault;
end;