Usar a tecla ENTER com a função da tecla TAB no FastReport 3.0

Delphi

13/04/2011

Bom dia,
   Estou otimizando alguns relatórios e queria implementar essa funcionalidade da tecla enter para pular os campos. Porém no FastReport não posso usar o código que uso em aplicações delphi que seria:
Procedure Tform1.FormKeyPress(Sender: Tobject; var Key: Char);


If key = #13 then
Begin
  Key:= #0;
  Perform(Wm_NextDlgCtl,0,0);
end;


end;

  No FastReport não consigo usar a função Perform, ele não tem, pelo menos nessa versão. Gostaria de saber se alguém já passou por essa situação e conseguiu resolver.

Obrigado pela atenção.
Dyego Almeida

Dyego Almeida

Curtidas 0

Respostas

Rodrigo Mattos

Rodrigo Mattos

13/04/2011

amigo eu não sei se da certo, mas no evento OnKeyDown você faz assim:



procedure TfrmLisCidade.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = VK_RETURN then
    SelectNext(ActiveControl, True, True);
end;




Espero ter Ajudado.
http://mundodoprogramador.wordpress.com
GOSTEI 0
Dyego Almeida

Dyego Almeida

13/04/2011

Então Rodrigo, não funcionou, ele não reconheceu a função "SelectNext". Se tiver uma outra solução para apresentar agradeceria. Muito obrigado por ajudar.
Abraço.
GOSTEI 0
Rodrigo Mattos

Rodrigo Mattos

13/04/2011

amigo em que evento você está fazendo o código?
GOSTEI 0
Dyego Almeida

Dyego Almeida

13/04/2011

No evento que você falou, "OnkeyDown" , segue abaixo o código:
procedure DialogPage1OnKeyDown(Sender: TfrxComponent; var Key: Word; Shift: TShiftState);begin  inherited;  if Key = VK_RETURN then    SelectNext(ActiveControl, True, True);end;

O FastReport não identifica o inherited, e nem o SelectNext. Você mexe com essa ferramenta de relatórios?

Abraço.
 
GOSTEI 0
Rodrigo Mattos

Rodrigo Mattos

13/04/2011

não, eu não mexo com FastReport mas eu achei que ia funcionar trocar o tab pelo enter, eu vou dar uma pesquisada vou ver o que eu acho, qualquer coisa eu respondo aqui.





http://mundodoprogramador.wordpress.com
GOSTEI 0
Dyego Almeida

Dyego Almeida

13/04/2011

Beleza, obrigado pela ajuda.

Abraço.
GOSTEI 0
José

José

13/04/2011

Obrigado pelo retorno, estou encerrando este tópico.
GOSTEI 0
POSTAR