Código
Actived, OnTimer:Boolean;
OnTimer:=True; Actived:=False;
no evento num key press,
if not(key in['0'..'9']) then
key:=#0;
if OnTimer then begin
Timer3.Enabled:=True; OnTimer:=False; end;
no evento num Exit,
Timer3.Enabled:=false;
OnTimer:=True;
if Actived then Begin
"mensagem de Erro"
end;
no evento timer para o Timer3,
Actived:=True; // 1 segundo foi alcançado...
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009