TListView ind das selektieren

[toms]

Hallo,

Oder du machst du Überprüfung im OnMouseUp der TListView.

Delphi-Quellcode:

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Item: TListItem;
  HitTest: THitTests;
begin
  with TListView(Sender) do
  begin
    Item := GetItemAt(x, y); // Item an Mausepos. ermitteln
    if Assigned(Item) then
    begin
      HitTest := GetHitTestInfoAt(x, y); 
      if (HitTest = [htOnStateIcon]) then // Test ob Click auf Checkbox erfolgt ist 
      begin
        if Item.Checked = True then  // falls angeclickt
        begin
          // Checkbox angeclickt, mache etwas
        end;
      end;
    end;
  end;
end;