Função fica emitindo um beep, chato.. tem como remover?
26/03/2006
0
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
Posts
26/03/2006
Alexandre_torres
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+
27/03/2006
Marco Salles
[b:22c3929537]SelectcNext -->>> SelectNext[/b:22c3929537]
sugestão sem compromisso
Clique aqui para fazer login e interagir na Comunidade :)