TCheckListBox - Item unter Mauscursor beim rechten Mausklick

[OldGrumpy]

Hallo zusammen,

rauszufinden welches Element in der CheckListBox mit der linken Maustaste angeklickt wurde, ist ja einfach (Property "ItemIndex"), aber wie finde ich heraus, auf welchem Element der Mauscursor bei einem Rechtsklick stand? Um den Mausbutton auszuwerten müsste ich ja OnMouseDown oder OnMouseUp benutzen, dort ist bei einem Mausklick aber ItemIndex noch nicht korrekt gesetzt. Um die Zeile anhand der Mausposition zu berechnen fehlt mir eine Möglichkeit, herauszufinden wie hoch jede einzelne Zeile ist, der Rest ist ja kein grosses Problem mehr. Für jegliche Vorschläge, Ideen oder gar komplette Lösungen wäre ich sehr dankbar :)

[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;

[OldGrumpy]

Au man, war gestern wohl wirklich schon etwas spät. Ich könnte schwören die Methode war gestern noch nicht da :mrgreen: Herzlichen Dank!