Hacer evento Tab en TEdit

[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.

[[egostar]]

Usa este evento en el objeto Edit.

Código Delphi [-]
 
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
   if Key = 9 then begin // La tecla TAB tiene el código ASCII 9
     ShowMessage('Tecla TAB presionada!!!');
   end;
end;

Saludos

[JELIRM]

GRACIAS,
Fijate que funciona pero solo con un TEdit si pongo dos no me funciona en el primero sino que en el segundo TEdit.

[[egostar]]

Empezado por JELIRM

GRACIAS,
Fijate que funciona pero solo con un TEdit si pongo dos no me funciona en el primero sino que en el segundo TEdit.

No habia visto el enlace que puso vtdeleon, ahi esta la respuesta a tu problema, lo que creo es que no supiste como hacerlo.

http://delphi.about.com/cs/adptips20...ltip0702_5.htm

Aqui esta el codigo completo con dos Tedit.

Código Delphi [-]
 
unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
 
type
   TForm1 = class(TForm)
        Edit1: TEdit;
        Edit2: TEdit;
   private
        { Private declarations }
        procedure CMDialogKey(Var Msg: TWMKey) ;
        message CM_DIALOGKEY; 
   public
        { Public declarations }
end;
 
var
   Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.CMDialogKey(Var Msg: TWMKEY) ;
begin
   if (ActiveControl is TEdit) and
     (Msg.Charcode = VK_TAB) then begin
     ShowMessage('TAB key pressed?') ;
   end;
   inherited;
end;
 
end.

Si quieres usar otros objetos, pues tendras que modificar el codigo a tus necesidades.

Saludos