perdona, creo que era este procedimiento con este message
//Para cuando pierde el focus
procedure WMKILLFOCUS(Var Tmessage);message WM_KILLFOCUS;
//Para cuando recupera el focus
procedure WMSETFOCUS(Var Tmessage);message WM_SETFOCUS;
creo.Pruebalo
Saludos
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).
|