Olá paulo vc tbem pode usar as linhas abaixo no evento onShortCut do form.
if not(Mudou) then
if Msg.CharCode = 38 then
begin
Perform(WM_NEXTDLGCTL, 1, 0);
Mudou := True;
end
else if (Msg.CharCode = 40) or (Msg.CharCode = 13)then
begin
Perform(WM_NEXTDLGCTL, 0, 0);
Mudou := True;
end;
onde o 40 é a seta pra baixo e o 38 é a seta pra cima.
vc pode colocar essas linhas dentro da sua procedure EnterTab tbem.
José Ricardo Aviles.
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Dercino
Enviada em: quarta-feira, 28 de março de 2007 13:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Enter Tab
tem um componente Jedi que faz isso.
> Ola, tenho um procedimento: MenuPrincipal.-EnterTab;
>
> procedure TMenuPrincipal.-EnterTab(-Sender: TObject; var Key: Char);
> begin
> if Key = #13 then
> begin
> Key := #0;
> Perform(CM_DialogKe-y, VK_TAB, 0);
> end;
> end;
>
> Que está no form principal da aplicação e gostaria de chamá-lo no
> onkey press dos forms:
>
> procedure TCnsCliente5.-FormKeyPress(-Sender: TObject; var Key: Char);
> begin
> inherited;
> MenuPrincipal.-EnterTab;
> end;
>
> porem ao tentar usar ele, dá erro de: Not Enough actual parameters
>
> O que eu preciso acrescentar na chamada do procedimento?
> A intenção é trocar o tab pelo enter.
>
> Se alguém puder ajudar, de já agradeço!
>
> []´s
> Paulo
>
>
>
>
>
----------------------------------------------------------------
Aviso de confidencialidade
Esta mensagem da Empresa Brasileira de Pesquisa Agropecuária (Embrapa),
empresa pública federal regida pelo disposto na Lei Federal no. 5.851, de
7 de dezembro de 1972, é enviada exclusivamente a seu destinatário e pode
conter informações confidenciais, protegidas por sigilo profissional. Sua
utilização desautorizada é ilegal e sujeita o infrator às penas da lei. Se
você a recebeu indevidamente, queira, por gentileza, reenviá-la ao emitente,
esclarecendo o equivoco.
Confidentiality note
This message from Empresa Brasileira de Pesquisa Agropecuária (Embrapa) a
government company established under Brazilian law (5.851/72), is directed
exclusively to its addressee and may contain confidential data, protected
under professional secrecy rules. Its unauthorized use is illegal and may
subject the transgressor to the law's penalties. If you're not the
addressee,
please send it back, elucidating the failure.
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 268.18.20/736 - Release Date: 27/03/2007
16:38
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 268.18.20/736 - Release Date: 27/03/2007
16:38
[As partes desta mensagem que não continham texto foram removidas]
