Cita:
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;