Hacer evento Tab en TEdit

[JELIRM]

Hola foro,
Despues de no haber tenido agua que beber del conocimiento del manantial de Gran Club Delphi vengo con Sed!!! je, je

Bueno después de este pequeño parentesis, Como puedo hacer para que cuando presione la tecla Tab estando mi foco en en un TEdit me ejecute una accion en particular..



--Las Caidas te hacen aprender a caminar--

[Neftali [Germán.Estévez]]

Empezado por JELIRM

Despues de no haber tenido agua que beber del conocimiento del manantial de Gran Club Delphi vengo con Sed!

...qué filosófico.

Empezado por JELIRM

...como puedo hacer para que cuando presione la tecla Tab estando mi foco en en un TEdit me ejecute una accion en particular.

¿Has probado con los eventos?
Para eso están; En el Keydown puedes poner lo siguiente:

Código Delphi [-]
if (key = VK_TAB) then begin
  MessageDlg('Quiero hacer algo...', mtInformation, [mbOK], 0);
end;

[JELIRM]

Gracias Neftali por tu pronta respuesta, pero fijate que no me funciona no me da error ni nada simplemente que cuando presiono la tecla Tab no hace nada
hice lo siguiente:
En la pestaña Events de el Object Inspector de mi objeto Edit1 eleji el objeto OnKeyDown dandole doble click y ahi le puse el codigo que tu me dijistes

if (key = VK_TAB) then begin
MessageDlg('Quiero hacer algo...', mtInformation, [mbOK], 0);
end;

Intente ponerle este codigo al Eveno OnKeyPress pero me da error por que la variable Key no es del tipo en que ha sido declarada en el procedimiento.
Aprovechado vuestra cooperacion, tambien me puedes dar una idea de como ponerle una mascara a mi TEdit
Gracias..

[vtdeleon]

Saludos

Chequa este enlace

Sobre la mascara, puedes usar TMaskEdit.

[[Bicho]]

Hola puedes pasarte por aquí donde nuestro amigo Neftali ya lo arregló y ahora mismo no debía acordarse.


Saludos

[JELIRM]

Gracias Bicho y Vtdeleon por sus respuestas en cuanto al enlace que me puso Bicho no lo he logrado hacer esta un poco confuso,
En cuanto al enlace de Vtdeleon el problema es que con cualquier TEdit dentro de esa form hiciera lo mismo, lo que se me ocurrio es hacer una validacion mas a esa condicion con respecto al foco actual de el Tedit; pero no se como validarlo(el foco)
el codigo original es:
begin
if (ActiveControl is TEdit) and
(Msg.Charcode = VK_TAB) then
begin
ShowMessage('TAB key pressed?') ;
end;
inherited;
end;

lo que yo he intentado pero me da error dice que es un valor boleano pero intento Edit1.Setfocus= True e igual

begin
if (ActiveControl is TEdit) and (Edit1.SetFocus) and
(Msg.Charcode = VK_TAB) then
begin
ShowMessage('TAB key pressed?') ;
end;
inherited;
end;

No se si me explique bien, y gracias por sus respuestas.