![]() |
![]() |
| Paypal | 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 |
|
#10
|
|||
|
|||
|
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. |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|