Gracias por la alternativa ,lo voy a probar ,pero tengo otra alternativa pues no se si es adecuada pero hasta donde veo da
el codigo es:
Código Delphi
[-]
procedure TF_Principal.TimerBlinkTimer(Sender: TObject);
begin
p:=p+1;
FBlink:= not FBlink;
DBgrid1.Invalidate;
if p=50 then
TimerBlink.Enabled:=FALSE;
end;
y el otro timer este:
Código Delphi
[-]
procedure TF_Principal.TimerSoundTimer(Sender: TObject);
VAR I:INTEGER;
begin
M:=M+1;
IF M MOD 5 =0 THEN
MessageBeep(MB_OK);
if M=20 then
TimerSound.Enabled:=FALSE;
end;
en el onexit del edit tengo
Código Delphi
[-]
P:=0;
M:=0;
TimerBlink.Enabled:=TRUE;
TimerSound.Enabled:=TRUE;
FValor:= Trim(Edit1.Text);
mdoq_listado.Locate('Codigo', Edit1.Text, [])
el intervalo de los dos timer es de 200 y 300 y bueno ahi da, nose pero si seria lo mas correcto, el codigo de ecfisa lo probare , gracias , saludos