Tenho o seguinte código nos eventos:
OnExit:
procedure TFEqt_Pallet.EdNr_PalletExit(Sender: TObject);
var
MeuKey: word;
begin
MeuKey := 13;
EdNr_PalletKeyDown(EdNr_Pallet,MeuKey,[]);
end;
OnKeyDown:
procedure TFEqt_Pallet.EdNr_PalletKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Ord(key) = 13 then
begin
...
proximocampo.setfocus;
end;
Quando dou um enter no componente ele esta chamando o método OnExit duas vezes. Como posso resolver isso?