Cita:
Empezado por Neftali
Puedes utilizar algo así:
Código Delphi [-] MessageDlg(Format('Mensaje: %s (%s)', [E.Message, Sender.Classname]), mtInformation, [mbOK], 0);
Para estar seguro puedes comprobar el tipo:
Código Delphi [-] if (Sender is TFrom) then Nombre := TForm(Sender).Name; |
Neftali
Gracias por tu tiempo..
Ya verifique que tipo de Objeto Envia y es el objeto donde se genero la excepcion, osea, en mi caso de Ejemplo fue que programe en el evento onExit de un TGroupbox el Post de una tabla y haciendo esto me dio la excepcion, entonces envio en el SENDER el Objeto TGroupbox.
Sabiendo esto como puedo determinar el FORM donde esta creado este objeto, ya que a futuro podria ser cualquier objeto... ?
Saludos