(Resolvido) duvida no procedimento KeyDown

[Livio Neiva]

qual é a função desse procedimento???

procedure TformClientes.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (Key = VK_RETURN) then

Perform(WM_NEXTDLGCTL,0,0);

end;

valeu obrigado a todos

[Daniel Sanches]

a função dele é: quando você teclar <ENTER> ele pula para o próximo foco...

já estava esquecendo...

porém pra funcionar a função acima, a propriedade KeyPreview do form deve ser True...

abraço!!

[Livio Neiva]

e a função desse codigo??

Perform(WM_NEXTDLGCTL,0,0);

[Daniel Sanches]

é exatamente essa que te falei ... ele pula o foco de controle... por exemplo:

você tem os seguintes componentes no seu form (a propriedade TabOrder é a ordem de focus do componentes)

edit1 (TabOrder=0)

edit2 (TabOrder=1)

edit3 (TabOrder=2)

edit4 (TabOrder=3)

button1 (TabOrder=4)

button2 (TabOrder=5)

se você está no Edit3 por exemplo e executar o comando "Perform(WM_NEXTDLGCTL,0,0)" ele pula para o Edit4...

se você estiver no edit4 e executar o comando, ele pula para o button1 ....

entendeu ??

abraços !!

[Livio Neiva]

resolvido

obrigado