Buscar por:

Substituindo tab pelo enter

Código

Procedure TF_Padrao.FormKeyPress(Sender: TObject; var Key: Char); 

begin 

if Key = #13 then 

if not (ActiveControl is TDBGrid) then 

begin 

Key := #0; 

Perform(WM_NEXTDLGCTL, 0, 0); 

end 

else if (ActiveControl is TDBGrid) then 

with TDBGrid(ActiveControl) do 

if selectedindex < (fieldcount -1) then 

selectedindex := selectedindex +1 

else 

selectedindex := 0; 

end; {Ou então, pode-se tentar o seguinte método:

Utilize o evento onkeydown do componente e insira o seguinte comando:}

if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0); {este comando testa a tecla pressionada, se ela for um enter, manda o foco para o componente posterior. }