Fórum Evento onEnter #355547
17/03/2008
0
Bem não se sera facil explicar o que eu desejo mais vou tentar....
Utilizo o Delphi7 + Firebird2.0 e p IbExpert...
O caso é o seguinte, tenho um formulario de Cadastro de Clientes onde tenho um Campo CPF com um Button:
Até ai acho que todo mundo deve ter entendido, o caso é o seguinte;
Gostaria que apos o usuario fosse digitar o CPF do CLIENTE e Teclar ENTER tbem fizesse a mesma verificação que esta no Button, segue a função do Button abaixo:
procedure TfrmCadClientes.SpeedButton1Click(Sender: TObject);
begin
RESULT:=ValidaCPF(Edt_numero.Text);
IF (RESULT = FALSE) THEN
BEGIN
if MessageBox(handle, ´Atenção, Este Número de CPF é Inválido´, ´M E N S A G E M´, MB_OK + MB_ICONINFORMATION) = ID_YES then
end;
inherited;
Edt_numero.Clear;
Edt_Numero.SetFocus;
end;
Se alguem puder me ajudar a clarear as ideias, ficarei grato.
Peterpan
Peterpan
Curtir tópico
+ 0Posts
17/03/2008
Pestana_
flw.
Gostei + 0
17/03/2008
Hall 9000
if Key = #13 then
begin
Key:=0;
SpeedButton1Click(Sender);
end;
Gostei + 0
18/03/2008
Peterpan
if Key = #13 then
begin
Key:=0;
SpeedButton1Click(Sender);
end;[/quote:3008e884f0]
A intenção foi boa, mas apesar de estar com campo Edit, esse campo na realidade é o DBEdit, e o Formulario de Clientes ja recebe a função Tab por Enter, pois uso um componente da JvCl...
Alguma outra ideia.
abraços
Gostei + 0
18/03/2008
Rodc
Você tentou? O código é o mesmo para o DBEdit. Pegue o Tab então ao invés do Enter (#9).
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)