Ver Mensaje Individual
  #2  
Antiguo 30-11-2008
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Reputación: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Existe una forma de localizar si el ratón está en un Item o no: ItemAtPos
Código:
void __fastcall TForm1::ListBox1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    // nItem será el ItemIndex 0 -1 si no es un Item
    int nItem = ListBox1->ItemAtPos(TPoint(X,Y), true);
    ...........
    ...........
}
En funciones en las que no sepas las coordenadas del ratón... Pues las calculas :

Código:
void __fastcall TForm1::Función()
{
    TPoint Point;
    ::GetCursorPos(&Point);
    Point = ListBox1->ScreenToClient(Point);
    // nItem será el ItemIndex 0 -1 si no es un Item
    int nItem = ListBox1->ItemAtPos(Point, true);
    ........
    ........
}
Saludos.
Responder Con Cita