Necesito Determinar el Form de un Objeto

[Efren2006]

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 en

 SENDER

el objeto que genero el error se puede determinar el Form que lo contiene?

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

[Efren2006]

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

[roman]

Puedes usar la función GetParentForm.

// Saludos

[Efren2006]

Empezado por roman

Puedes usar la función GetParentForm.

// Saludos

Roman

Efectivamente la solucion al problema.

Gracias