1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TYAAMForm.lv1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ht : THitTests;
  li : TListItem;
begin
  // Checkbox angeklickt?
  ht := lv1.GetHitTestInfoAt(X,Y);
  li := lv1.GetItemAt(X,Y);

  // der "Hit" muss auf dem "StateIcon" gewesen
  // sein (quasi die Checkbox)
  if(htOnStateIcon in ht) and
  // und es sollte auch ein Item ausgewählt
  // worden sein
    (li <> nil) then
  begin
    // in dem Fall dann "li.Checked" prüfen
    // und irgendwas damit anstellen
    if(li.Checked) Do_Something;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.analyse_treecheckbox(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  ht: THitTests;
  node: TTreenode;
  checked: Boolean;

begin
  // Find Node
  node := form1.TreeView1.GetNodeAt(X, Y);
  if node = nil then exit;
  checked := form1.TreeView1.GetChecked(node);
  // Checkbox angeklickt?
  ht := form1.TreeView1.GetHitTestInfoAt(X, Y);
  // der "Hit" muss auf dem "StateIcon" gewesen
  // sein (quasi die Checkbox)
  if (htOnStateIcon in ht) then
  begin
    if not checked then
      showmessage('Uncheck Click auf Checkbox')
    else
      showmessage('Check Click auf Checkbox');
  end;
end;