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

26/03/2006

0

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)];
  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

Titanius

Responder

Posts

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

26/03/2006

Titanius

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


[]s


Responder

27/03/2006

Alexandre_torres

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

T+


Responder

27/03/2006

Alexandre_torres

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

T+


Responder

27/03/2006

Marco Salles

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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar