Necesito Determinar el Form de un Objeto

[Neftali [Germán.Estévez]]

Empezado por Efren2006

El problema es que necesito enviar en esta funcion el Nombre del Formulario donde se origino la excepcion, en envia el Objeto donde se genero el error, ahora Teniendo en SENDER el objeto que genero el error se puede determinar el Form que lo contiene?

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;