FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Mi problema consiste exactamente en que tengo un edit en mi formulario
y controlo varios proceso cuando el usuario presiona ENTER, pero algunos usuario presionan TAB para salir, por lo que quiero evitar que salgan del edit con TAB, puedo hacerlo tambien en el evento on EXIT y lo hace aunque salgan con TAB, pero en algunas ocaciones me produce un efecto algo incomodo. |
#2
|
||||
|
||||
Pues tal como te dije. Hasta donde probé ayer, si en el evento OnMessage de una componente ApplicationEvents pones
inhabilitas la tecla del todo. // Saludos |
#3
|
|||
|
|||
Tu me dice que ApplicationEvents es un componente, donde lo consigo,
|
#4
|
|||
|
|||
Excusame pero ya lo encontre
gracias.. |
#5
|
|||
|
|||
Oye la operación fue un exito....
|
#6
|
|||
|
|||
Acá están dos ejemplos de como se puede capturar la tecla TAB, el primero para el evento KeyDown o KeyUP y el segundo para el evento KeyPress.
Código:
procedure TForm1.dbgDetalleKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_TAB then Key := 0; end; procedure TForm1.dbgStockKeyPress(Sender: TObject; var Key: Char); begin if key = #9 then Key := 0; end;
__________________
Saludos. |
#7
|
||||
|
||||
Cita:
// Saludos |
#8
|
||||
|
||||
Cita:
// Saludos |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|