Array
(
)

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

Titanius
   - 26 mar 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

#Código


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;




Alexandre_torres
   - 26 mar 2006

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+


Titanius
   - 26 mar 2006

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


[]s


Alexandre_torres
   - 27 mar 2006

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

T+


Alexandre_torres
   - 27 mar 2006

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

T+


Marco Salles
   - 27 mar 2006

Verifique a sintaxe:
SelectcNext -->>> SelectNext
sugestão sem compromisso