Cachar Tabulador

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

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;