Usando a tecla Enter!
Olá,
1º Pergunta) Tenho um formulário com vários edit´s, e no evento OnKeyDown dos edit´s estou colocando o seguinte código:
if Key = VK_RETURN then
Perform(Wm_NextDlgCtl,0,0);
Quando o usuário teclar ENTER, deveria mover-se para o próximo edit, mas não é o que está acontecendo. Quando o usuário tecla ENTER o botão Ok é acionado, por que?
2º Pergunta)
Gostaria de alinhar o conteúdo dos edit´s (objeto TEdit) do lado direito do edit, mas nas propriedades do edit não existe a opção de alinhamento, como faço?
Atencipadamente Agradeço!
1º Pergunta) Tenho um formulário com vários edit´s, e no evento OnKeyDown dos edit´s estou colocando o seguinte código:
if Key = VK_RETURN then
Perform(Wm_NextDlgCtl,0,0);
Quando o usuário teclar ENTER, deveria mover-se para o próximo edit, mas não é o que está acontecendo. Quando o usuário tecla ENTER o botão Ok é acionado, por que?
2º Pergunta)
Gostaria de alinhar o conteúdo dos edit´s (objeto TEdit) do lado direito do edit, mas nas propriedades do edit não existe a opção de alinhamento, como faço?
Atencipadamente Agradeço!
Motuca
Curtidas 0
Respostas
Michel
06/12/2003
procedure Tfrm_vendedor.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key :=0;
perform(wm_nextDLGctl,0,0);
end;
Verifique se o KEYPREVIEW do formulario está ( TRUE )
begin
if key = #13 then
begin
key :=0;
perform(wm_nextDLGctl,0,0);
end;
Verifique se o KEYPREVIEW do formulario está ( TRUE )
GOSTEI 0
Franck.c
06/12/2003
em relação de ele ir para a tecla OK, verifique se o foco está certo, para isso clique com o botao direito do mause no form e vá em tab Order.. ou em cada OnKeyPress dos edit coloca nomeedit.setfocus; seria o nome do edit que ele iria passar o foco.
GOSTEI 0