Ver Mensaje Individual
  #9  
Antiguo 17-03-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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;
Saludos.
__________________
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 05:03:29. Razón: falto una 'T'...
Responder Con Cita