Moin,
vielleicht hilft dir das ja...
Delphi-Quellcode:
procedure TForm.ListBoxMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
if TListbox(Sender).ItemAtPos(Point(X, Y), true) >= 0 then
showmessage('ItemIndex: '+inttostr(TListBox(Sender).ItemIndex));
end;
MfG
Thorsten