Cachar Tabulador

[AGAG4]

Como cachar el Tabulador al momento de presionarlo, en un Edit, bdEdit, MaskEdit y dbGrid????

Ya había lanzado esta pregunta, pero en donde me explicaron tengo que crear un Componente Nuevo por cada uno de los que necesito, aparte cuando lo instalo no me explican como cacharlo, solo me explican donde se cachan al momento de heredar los controles de un Edit y enviar un mensaje, por lo que ya le busque en que propiedad pudiera cacharlo pero no lo encuentro.
Cualquier ayuda se los agradezco mucho.

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

[AGAG4]

Voy hacer pruebas Sr. Neftali.. Gracias....!!!!

[AGAG4]

Sr. Neftali, si me funcionó, pero, como mando llamar un Evento dentro del procedimiento para cachar el TAB????, ó bien llamar sólo el evento ONKEYDOWN al presionar el TAB dentro del mismo Procedimiento.

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

La rutina de un evento no deja de ser un procedimiento más, así que puedes llamarlo como cualquier otro (nombre del evento y parámetros).
¿Es eso a lo que te refieres? o tal vez no he entendido la pregunta.

Código Delphi [-]
  // ejemplillos...
  Edit1.EditClick(Self);
  Form1.FormShow(Self);

El ejemplo concreto para llamar al KeyDown sería así:

Código Delphi [-]
var
  _key: Word;
begin
  _key := VK_TAB;
  Self.OnKeyDown(Self, _key, []);

[AGAG4]

Ya lo probe Sr. Neftali, llamó al evento asi como me comenta arriba, y me marca un error al pasar por esta línea>

Self.OnKeyDown(Self, _key, []);

El Error:
"Project PFAC.exe raised exception class EAccessViolation with message 'Acess Violation at adress 0000' "