Fórum Para Guinther-Enter no Datacar #166482
25/06/2003
0
Guinther,
Primeiro gostaria de parabenizá-lo pelos excelentes artigos
que você vem publicando na Revista Clube Delphi, tem sido
de grande valia para mim, assim como para muitos.
Gostaria de esclarecer uma dúvida, se possível:
Estou estudando o sistema Datacar e gostaria de fazê-lo
mudar de campo acionando a tecla Enter ao invés de Tab.
Após tentar várias procedures encontradas na Internet,
não obtive êxito, ao compilá-lo sempre dá algum erro.
E fazendo um teste em um aplicativo NÃO clx, dá certo.
Será que poderia me dar uma dica de como fazer??
Antecipadamente agradeço.
Gerson
Primeiro gostaria de parabenizá-lo pelos excelentes artigos
que você vem publicando na Revista Clube Delphi, tem sido
de grande valia para mim, assim como para muitos.
Gostaria de esclarecer uma dúvida, se possível:
Estou estudando o sistema Datacar e gostaria de fazê-lo
mudar de campo acionando a tecla Enter ao invés de Tab.
Após tentar várias procedures encontradas na Internet,
não obtive êxito, ao compilá-lo sempre dá algum erro.
E fazendo um teste em um aplicativo NÃO clx, dá certo.
Será que poderia me dar uma dica de como fazer??
Antecipadamente agradeço.
Gerson
Gerson
Curtir tópico
+ 0
Responder
Posts
26/06/2003
Pitbull
Bem, passei pelo mesmo problema que o seu mas consegui encontrar uma maneira, não sei se é a melhor ou mais correta, mas tente isto:
Sete a propriedade KeyPreview do Form com TRUE.
No evento onKeyDow do Form:
IF not (Screen.ActiveControl is TCustomMemo) Then
Case Key of
key_return, Key_down : self.ActiveControl := self.FindNextControl(ActiveControl,TRUE,TRUE,TRUE);
Key_up : self.ActiveControl := self.FindNextControl(ActiveControl,FALSE,TRUE,TRUE);
End;
Caso o Guinter responda para voce me envie o código para rider002@bol.com.br
Espero ter ajudado
Sete a propriedade KeyPreview do Form com TRUE.
No evento onKeyDow do Form:
IF not (Screen.ActiveControl is TCustomMemo) Then
Case Key of
key_return, Key_down : self.ActiveControl := self.FindNextControl(ActiveControl,TRUE,TRUE,TRUE);
Key_up : self.ActiveControl := self.FindNextControl(ActiveControl,FALSE,TRUE,TRUE);
End;
Caso o Guinter responda para voce me envie o código para rider002@bol.com.br
Espero ter ajudado
Responder
Gostei + 0
04/07/2003
Guinther
Olá
Na CLX vc pode usar assim:
* Coloque KeyPreview do form para True
No OnKeyPress do form digite:
if key=#13 then
begin
Key:=0;
SelectNext(ActiveControl,True,True);
end;
[]´s
Guinther
Na CLX vc pode usar assim:
* Coloque KeyPreview do form para True
No OnKeyPress do form digite:
if key=#13 then
begin
Key:=0;
SelectNext(ActiveControl,True,True);
end;
[]´s
Guinther
Responder
Gostei + 0
12/07/2003
Morphadron
Cara tanbém concordo com vc sobre o sistema DataCar, um ótimo programa, (Clube Delphi - Meus Parabéns!!!!!!!!), mas a função:
****Enter Como se Fosse o TAB ****
No Evento OnKeyPress do Form
If key =#13 Then
Begin
Key :=0;
perform (WM_NEXTDLGCTL,0 , 0);
End;
Depois de feito isso KeyPreview = true
Abraços!!!!!!!!
****Enter Como se Fosse o TAB ****
No Evento OnKeyPress do Form
If key =#13 Then
Begin
Key :=0;
perform (WM_NEXTDLGCTL,0 , 0);
End;
Depois de feito isso KeyPreview = true
Abraços!!!!!!!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)