Necesito Determinar el Form de un Objeto
 

Tengo un pequeño problema

Descubri que puedo controlar todas las excepciones de mi aplicacion, solo colocando el Compornente

Código Delphi [-]
TApplicationEvents

y programa el Evento OnExceptio: Ejemplo

Código Delphi [-]
procedure TMenuFortaleza.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
 ErrorSistema(E,Name);
end;

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 enel 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;

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

Puedes usar la función GetParentForm.

// Saludos

Roman

Efectivamente la solucion al problema.

Gracias