FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#9
|
||||
|
||||
Aquí va otra para detectar la tecla Tab en un edit:
interface type TForm1 = class(TForm) .... private procedure CMDialogKey(Var Msg: TWMKey);message CM_DIALOGKEY; public end; ... Código:
procedure TForm1.CMDialogKey(var Msg: TWMKey); begin if (ActiveControl is TEdit)and(Msg.Charcode = VK_TAB) then ShowMessage('Tecla tab presionada'); inherited; end;
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 17-03-2010 a las 04:03:29. Razón: falto una 'T'... |
|
|
|