TListBox ListBox1MouseActivate ItemIndex?

[Uwe Raabe]

Wie schon oben erwähnt, bietet ItemAtPos hier eine einfache Möglichkeit:

Delphi-Quellcode:

procedure TForm207.ListBox1MouseActivate(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y, HitTest:
    Integer; var MouseActivate: TMouseActivate);
var
  idx: Integer;
begin
  idx := ListBox1.ItemAtPos(Point(X, Y), true);
  if idx >= 0 then begin
    // mach was mit Item idx
  end;
end;