Hacer evento Tab en 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