Evento onEnter
:) Ola amigos Delphianos;
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:
Se alguem puder me ajudar a clarear as ideias, ficarei grato.
Peterpan
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
Curtidas 0
Respostas
Pestana_
17/03/2008
se for o que eu entendi, basta você fazer assim: SpeedButton1.Click;
flw.
flw.
GOSTEI 0
Hall 9000
17/03/2008
No OnKeyPress do Edit que recebe cpf:
if Key = #13 then
begin
Key:=0;
SpeedButton1Click(Sender);
end;
if Key = #13 then
begin
Key:=0;
SpeedButton1Click(Sender);
end;
GOSTEI 0
Peterpan
17/03/2008
[quote:3008e884f0=´Hall 9000´]No OnKeyPress do Edit que recebe cpf:
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
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
Rodc
17/03/2008
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...
Você tentou? O código é o mesmo para o DBEdit. Pegue o Tab então ao invés do Enter (#9).
GOSTEI 0