Código
procedure DoEnterAsTab(var Msg: TMsg; var Handled: Boolean); digite CTRL+SHIT+C pra implementar a mesma.
Em sua implementação codificar:
procedure TfrmPrincipal.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
if Msg.wParam = VK_RETURN then Keybd_event(VK_TAB, 0, 0, 0);
end;
No evento onCreate do form principal codificar o seguinte:
procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
Application.OnMessage := DoEnterAsTab;
end;
Pronto daqui para frente você pode trocar a tecla tab pelo enter em todos os seus formulários sem se preocupar com nada.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009