Código Delphi [-] //para un edit procedure xxxEdit1Enter(Sender: TObject); begin showmessage(TEdit(Sender).Name); end; //o utilizar ActiveControl -> para saber el control que tiene el foco showmessage(ActiveControl.Name);
//para un edit procedure xxxEdit1Enter(Sender: TObject); begin showmessage(TEdit(Sender).Name); end; //o utilizar ActiveControl -> para saber el control que tiene el foco showmessage(ActiveControl.Name);