Voltar ao campo anterior

Question

Ol� amigos delphianos !Eu sei o c�digo que substitui a tecla TAB para ENTER nos campos do meu form. Mas eu quero saber como eu fa�o para que ao apertar a tecla qua aponta para cima volta para o campo ...

Marco Salles · Answer

[quote:d665afaaef]como eu fa�o para que ao apertar a tecla qua aponta para cima volta para o campo anterior ! [/quote:d665afaaef]Voce estausando DbEdits  :?:  :?:  :?:...

Tiagojmilam · Answer

Estou usando na maioria DbEdits mas tem DBComboBox e as vezes uns edits mesmo ....

Marco Salles · Answer

[quote:6c5c9976f9]saber como eu fa�o para que ao apertar a tecla qua aponta para cima volta para o campo anterior ! [/quote:6c5c9976f9][quote:6c5c9976f9]Estou usando na maioria DbEdits mas tem DBComboBox e as vezes uns edits mesmo .[/quote:6c5c9976f9]amigo , voce vai usar o evento KeyDown Desses componentesExemplo::[code:1:6c5c9976f9]procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if Key=Vk_Up Then Perform(WM_NEXTDLGCTL,-1,0);end;[/code:1:6c5c9976f9][code:1:6c5c9976f9]procedure TForm1.DBEdit2KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin if Key=Vk_Up Then Perform(WM_NEXTDLGCTL,-1,0)end;[/code:1:6c5c9976f9][code:1:6c5c9976f9]procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);beginif Key=Vk_Up Then Perform(WM_NEXTDLGCTL,-1,0)end;[/code:1:6c5c9976f9]Mas para evitar excesso de c�digo , voce pode usar um so c�digo desse e Liga-los todos os eventos onKeyDown de todos esses componentes a Um Evento GeralPor exemplo... V� no objecto inspector de um desses componentes e altere o Nome do Evento OnKeyDow Para OnKeyDowGeral.. Agora ligue o evento de todos os componentes a esse novo que aprarecer� no Objecto inspectorOs tre c�digos anteriores se transforma em :[code:1:6c5c9976f9]procedure TForm1.KeyDownGeral(Sender: TObject; var Key: Word;  Shift: TShiftState);begin if Key=Vk_Up Then Perform(WM_NEXTDLGCTL,-1,0)end;[/code:1:6c5c9976f9]...

F�rum Voltar ao campo anterior #290992