Ver Mensaje Individual
  #2  
Antiguo 14-09-2004
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 19.435
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por AGAG4
Como cachar el Tabulador al momento de presionarlo, en un Edit, bdEdit, MaskEdit y dbGrid????
Hagamos borrón y cuenta nueva...

A ver si ésto te sirve mejor.
En el form donde tienes los controles, define en la parte privada ésto:
Código Delphi [-]
procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;

Y en la implementación ésto:

Código Delphi [-]
procedure TForm1.CMDialogKey(var Message: TCMDialogKey);
begin
  // Comprobar estado
  if GetKeyState(VK_MENU) >= 0 then begin
    with Message do begin
      // Segun la tecla
      case CharCode of
        VK_TAB:
          // Hacer lo que quieres
          ....
          MessageDlg('Tecla TAB, Control activo: '+  ActiveControl.Name, mtInformation, [mbOK], 0);
      end; // end..case
    end; // end..with
  end; // end..if
  // Método padre para que salte al siguiente control,...
  inherited;
end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita