Mensaje    Asunto: Recorre StringGrid con Enter Responder citando

Buenas noches compañeros.

Ya hacía mucho tiempo que no posteaba nada pero más vale tarde que nunca jaja, después de un buen rato de buscar por el foro y no encontrar nada, encontré un pequeño truco en delphi que al traducirlo a Builder me sirvió mucho, este nos ayuda a recorrer un StringGrid con la tecla enter a la hora de estar capturando.

Espero les sirva.

Código:
/*RECORRE STRINGGRID CON ENTER*/
if(Key = VK_RETURN)
{      
   if (StringGrid1->Col <StringGrid1>ColCount - 1) //Pregunta Si la Columna donde está el foco es menor al total de Columnas
   {
      StringGrid1->Col = StringGrid1->Col + 1; //Incrementa la posición de la Columna
   }
   else
   {
      StringGrid1->Col = StringGrid1->ColCount - StringGrid1->Col - 1; //Si Llega al Final de las Columnas
      if (StringGrid1->Row <StringGrid1>RowCount - 1) //Pregunta Si la posición de la Fila es menor al Total de Filas
      {
         StringGrid1->Row = StringGrid1->Row + 1; //Incrementa la posición de la Fila
      }
      else //Si Llega al Final de las Filas y Columnas
      {
         StringGrid1->Col = StringGrid1->ColCount - 1; //Se queda en la última columna
         StringGrid1->Row = StringGrid1->RowCount - 1;//Se queda en la última Fila
         Key = 0;
      }
   }
}

_________________
GRZ 47