TCheckListBox - Item unter Mauscursor beim rechten Mausklick

[Sharky]

Hai OldGrumpy,

das müsste doch mit der Funktion TCheckListBox.ItemAtPos möglich sein.

Delphi-Quellcode:

procedure TForm1.CheckListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Item_Index: Integer;
  MausPoint:  TPoint;
begin
  if Button = mbRight then
  begin
    MausPoint.X := X;
    MausPoint.Y := Y;
    Item_Index  := CheckListBox1.ItemAtPos(MausPoint, True);
    ShowMessageFmt('%d', [Item_Index]);
  end;
end;