Como passear pelos componentes?

Delphi

03/05/2004

Olá pessoal.
Alguem sabe como faço para percorrer os componentes do meu form com as teclas seta pra cima e seta para baixo, seguindo a ordem estabelecida pelo taborder?
Agradeço antecipadamente.


Flaviosan

Flaviosan

Curtidas 0

Respostas

Fer_nanda

Fer_nanda

03/05/2004

tenta assim
procedure TfrmMenuPrincipal.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_DOWN: perform(WM_NEXTDLGCTL,0,0);
    VK_UP: perform(WM_NEXTDLGCTL,1,0);
  end;
end;



GOSTEI 0
Flaviosan

Flaviosan

03/05/2004

Muito obrigado Fernanda, não poderia ter funcionado melhor.


GOSTEI 0
Marco Salles

Marco Salles

03/05/2004

Muito obrigado Fernanda, não poderia ter funcionado melhor.


Funcionou perfeitamente sem voce ter colocado a propriedade [b:eaafc3efe9]KeyPreview[/b:eaafc3efe9] do Form em [b:eaafc3efe9]True [/b:eaafc3efe9]:?: :?: :?: :?:


GOSTEI 0
Nildo

Nildo

03/05/2004

Isso é coisa básica do Delphi, ele já sabia que para entrar no OnKeyDown o Keypreview deveria estar como true


GOSTEI 0
Flaviosan

Flaviosan

03/05/2004

Só que eu já sabia desse detalhe.
Foi uma falha minha não ter exposto isto no forum, já que o intuito é o aprendizado.
Obrigado pelo toque.


GOSTEI 0
POSTAR