grz47 Ens


Registrado: 05 Ago 2005Mensajes: 40Ubicación: SINALOA, MEXICO
|
Publicado: Jue 04 Nov, 2010 6:01 am Asunto: Recorre StringGrid con Enter |
|
|
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 |
|