[onlytk]

Hola amigos, tengo un problema con unos componentes devExpress, recientemente los descargue y al implementar una rutina en un control TcxTextEdit, que no es mas que un Edit Box, al presionar ENTER este salte al siguiente control, no me funciona, segun encontre en un truco en Club Delphi, esto deberia funcionar

Código Delphi [-]
procedure TfrmLogin.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (ActiveControl is TcxTextEdit) then
    begin
        if Key = VK_RETURN then
         Perform( WM_NEXTDLGCTL, 0, 0 );
    end;
    if Key = VK_ESCAPE then
     Close;
end;

pero al parecer cuando hago la comparacion si el ActiveControl (Control Activo) es de la Clase tcxTextEdit (Componente DevExpress) no me funciona, creo que es porque ActiveControl es del tipo TWinControl, entonces hay alguna manera para que funciones esto????. o como utilizo el IS en componentes que no esten heredados del TWincontrol??,

Gracias de antemano, salu2.