Sabemos que, en general, al presionar la tecla Tab se mueve el foco de entrada al siguiente control y Shift-Tab al anterior en el orden de tabulación del formulario. Cuando trabajas con Aplicaciones de Windows, algunos usuarios intuitivamente esperan que la tecla Enter se comporte como una tecla Tab.
Los ejemplos a continuación se escriben asumiendo que no hay un botón predeterminado en el formulario. Cuando su formulario contiene un botón cuya propiedad predeterminada está establecida en Verdadero, presione Entrar en tiempo de ejecución ejecuta cualquier código contenido en el controlador de eventos OnClick del botón.
~~~~~~~~~~~~~~~~~~~~~~~~~
procedimiento TForm1.Edit1KeyPress (Remitente: TObject; Clave var: Char);
empezar
Si la tecla = # 13, entonces comience
Si HiWord (GetKeyState (VK_SHIFT)) <> 0, entonces
SelectNext (remitente como TWinControl, False, True)
más
SelectNext (remitente como TWinControl, True, True);
Clave: = # 0
final;
final;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
procedimiento TForm1.DBGrid1KeyPress (Remitente: TObject; Clave var: Char);
empezar
Si la tecla = # 13, entonces comience
Si HiWord (GetKeyState (VK_SHIFT)) <> 0, entonces comience
con (Remitente como TDBGrid) hacer
si se selecciona índice> 0, entonces
selectedindex: = selectedindex - 1
de lo contrario comenzar
Fuente de datos. Conjunto de datos Anterior;
índice seleccionado: = recuento de campos - 1;
final;
fin más comienza
con (Remitente como TDBGrid) hacer
si se selecciona índice índice seleccionado: = índice seleccionado + 1
de lo contrario comenzar
Fuente de datos. Conjunto de datos Próximo;
índice seleccionado: = 0;
final;
final;
Clave: = # 0
final;
final;
~~~~~~~~~~~~~~~~~~~~~~~~~