1)
Кидаем на форму (Form1):
TListBox - 1 шт. (ListBox1)
TLabel - 1 шт. (Label1)
2)
На событие OnClick листбокса вешаем:
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
if(ListBox1->ItemIndex > -1)//выбрана какая либо строка
Label1->Caption = ListBox1->Items->Strings[ListBox1->ItemIndex];
}
3)
Кликаем по строчкам в листбоксе - текст в лэйбле меняется на текст активной позиции листбокса.
4)
voilà (вы восхитительны)
PS:
Формально говоря, если задача именно отловить только все клики мыши то нужно вешать на событие OnMouseDown к примеру:
void __fastcall TForm1::ListBox1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
int indx = ListBox1->ItemAtPos(TPoint(X, Y), false);//индекс выбранной строки
if(indx > -1)
Label1->Caption = ListBox1->Items->Strings[indx];
}