Função fica emitindo um beep, chato.. tem como remover?

26/03/2006

Olá, uso a seguinte função para pular de campo com o ENTER, porém toda hora que aperto o ENTER ele fica dando um BEEP... no inicio eu achei legal, mas num cadastro de 50 campos.. poutz.. enche o saco.. tem como eu remover este beep?

Desde já agradeço...

[]s

 with Screen.ActiveForm do
 begin
  Key := AnsiUpperCase(Key)[Length(Key)&93;;
  if (Key = 13) then
  begin
   Key := 0;
   if (ActiveControl is TJvComboEdit) then
   begin
    (ActiveControl as TJvComboEdit).Button.Click;
    Key := 0;
    Perform(Wm_NextDlgCtl, 0, 0);
   end
   else
   begin
    if (ActiveControl is TJvDBComboEdit) then
    begin
     (ActiveControl as TJvDBComboEdit).Button.Click;
     Key := 0;
     Perform(Wm_NextDlgCtl, 0, 0);
    end
    else
     Perform(Wm_NextDlgCtl, 0, 0);
   end;
  end;
  if (Key = 27) and (Screen.ActiveForm <> nil) then
  begin
   Key := #0;
   try
    if (FindComponent(´BtnCancelar´) <> nil) and (TBitBtn(FindComponent(´BtnCancelar´)).Enabled) then
     TBitBtn(FindComponent(´BtnCancelar´)).Click
    else
     Close;
   except
   end;
  end;
  Result := Key;
 end;
end;




Titanius

Respostas

26/03/2006

Alexandre_torres

Amigo,

Não conheço está função, porém uso uma filé aqui. Vê ai...

if key = #13 then
begin
key := 0;
SelectcNext(Activecontrol, true, true);
end;

espero ter ajudado.

T+


Responder Citar

26/03/2006

Titanius

Aqui não funcionou... tenho que adicionar alguma Unit?


[]s


Responder Citar

27/03/2006

Alexandre_torres

Da uma olhada se o keyPreview está como true...

T+


Responder Citar

27/03/2006

Alexandre_torres

do formulário em questão....

T+


Responder Citar

27/03/2006

Marco Salles

Verifique a sintaxe:
[b:22c3929537]SelectcNext -->>> SelectNext[/b:22c3929537]
sugestão sem compromisso


Responder Citar