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
if GetKeyState(VK_MENU) >= 0 then begin
with Message do begin
case CharCode of
VK_TAB:
....
MessageDlg('Tecla TAB, Control activo: '+ ActiveControl.Name, mtInformation, [mbOK], 0);
end; end; end; inherited;
end;