Creio que não precise componentes para isso.
No seu form você altera a propriedade KeyPreview para true, no evento
OnKeyPress coloque o seguinte:
if key = Char( VK_RETURN ) then
begin
PostMessage( Form.Handle, WM_NEXTDLGCTL, 0, 0 );
Key:= Chr( 0 );
end;
Pronto, todos os seus campos vão pular para o próximo. Se quiser ser
mais purista, faça que todos os teus forms descendam deste único em
que vc vai colocar a função, daí não precisa colocar isso em cada
formulário criado.
--- Em delphi-br@yahoogrupos.com.br, Jefferson - Fórum <[EMAIL PROTECTED]>
escreveu
>
> Instala com componentes da suíte Jedi, que lá você terá o
componente: TJvEnterAsTab, ele ajuda demais nesses casos.
> Boa sorte!
>
> Jefferson
>
> ----- Original Message -----
> From: barblo25
> To: delphi-br@yahoogrupos.com.br
> Sent: Friday, February 09, 2007 2:00 PM
> Subject: [delphi-br] Re: Enter funcionando como Tab
>
>
> Meu Brother ver se esse funciona pra vc. Pois eu utilizo essa
rotina
> no evento onKeyDown do form. E depois vc utiliza herança, estais
> entendo?. Qualquer coisa eh so dizer. Ele so não ativa quando eh
em
> DBGRID.
>
> var
> bDirecao: Integer;
> begin
> bDirecao := -1;
> if not (ActiveControl is TDBGrid) then
> begin
>
> case Key of
> VK_UP: bDirecao := 1;
> VK_DOWN,VK_RETURN: bDirecao := 0;
> end;
>
> if (bDirecao <> -1) then
> perform(WM_NEXTDLGCTL, bDirecao, 0) ;
>
> end;
> end;
>
> --- Em delphi-br@yahoogrupos.com.br, "blcksun954"
> <carlosrpnegrao@> escreveu
> >
> > Tem algum modo simples de fazer com que todos os componnetes de
> > edição (TEdit, TComboBox, etc...) de um projeto passem a tratar
a
> > tecla Enter como tratam a Tab sem ter de escrever uma função
pra
> cada
> > componente?
> > Estou usando Delphi 5.
> >
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
