Usando a tecla Enter!

06/12/2003

1

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!


Responder

Posts

06/12/2003

Michel

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 )


Responder

07/12/2003

Franck.c

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.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira