Hola Angel.
Tengo que rectificar mi mensaje anterior ya que no es correcto en su totalidad, en esta última prueba funcionan los valores negativos menos el -1:
Código PHP:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
lb->Items->AddObject("menos 1", (TObject*)-1);
lb->Items->AddObject("menos 2", (TObject*)-2);
lb->Items->AddObject("menos 3", (TObject*)-3);
lb->Items->AddObject("menos 4", (TObject*)-4);
lb->Items->AddObject("menos 5", (TObject*)-5);
}
void __fastcall TForm1::lbClick(TObject *Sender)
{
if (lb->ItemIndex == -1) return;
Caption = (int)(lb->Items->Objects[lb->ItemIndex]);
}
Dá error cuando se selecciona "menos 1" (-1)
Saludos