Fórum Como passear pelos componentes? #229616

03/05/2004

0

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

Responder

Posts

03/05/2004

Fer_nanda

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;



Responder

Gostei + 0

03/05/2004

Flaviosan

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


Responder

Gostei + 0

03/05/2004

Marco Salles

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]:?: :?: :?: :?:


Responder

Gostei + 0

03/05/2004

Nildo

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


Responder

Gostei + 0

03/05/2004

Flaviosan

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.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar