Ante todo muchas gracias, primero, por leer mi pregunta. Estoy desarrollando una unit para la gesti�n de errores a la que llamar�n los diferentes form, unit, etc del resto de la app mediante una llamada a una funci�n de esa unit para la gesti�n de errores. El problema me radica en que necesitar�a pasarle a esa funci�n desde que unit, form � data_Module es llamada. Por eso ah� es el reto que os propongo, �podr�an decirme como saber en que form, unit, etc se encuentra ahora mismo el foco de la app? Muchas gracias de antemano por vuestra pronta respuesta. Un abrazo
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20150109/30328092/attachment.html>
Mailing lists / lazarus-es / 2015-01
Como saber que form o unit es en la que estoy?
5 messages · 5 people · –
- Ismael L. Donis Garcia 1
- Martin Gomez 1
- Rubén Ibáñez 1
- SOCGER .- 1
- Victor Villalobos 1
Reply by email Subscribe to this list Your subscription
Read-only archive. Use j and k to move between messages.
Le podr�as pasarle como par�metro el nombre con Self.Name
Saludos
=========
|| ISMAEL ||
=========
Only for the small landowners and Cubans companies Website: www.sisconge.byethost15.com
www.sisconge.hol.es
Earlier message 22 lines
Ante todo muchas gracias, primero, por leer mi pregunta. Estoy desarrollando una unit…
Hola,
Yo har�a lo siguiente: crear�a una variable global, que estar�a en la unit que dices que gestionar� los errores, ya que todas las dem�s la tendr�n en 'uses', y har�a que cada una antes de recurrir a la unidad en cuesti�n le asigne un cierto valor a dicha variable gobal. Luego la unit tendr�a un selector 'case "unit" of' (ver en freepascal como usarlo) y listo. Saludos.
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20150109/386b977f/attachment.html>
Buenas,
Si utilizas el metodo de TPageControls como control tipo MDI, que te deje en el otro post, puedes usar el evento OnChange del TPageControl, luego puedes usar por ejemplo el caption del form de esta forma:
case TPageControl.ActivePage.Caption of
'Form1': Begin End;
'Form1': Begin End;
end;Saludos , revisa el otro hilo que te deje lo que me pedistes.
El 9 de enero de 2015, 14:53, Rub�n Ib��ez <ruben.mariano.ibanez en gmail.com> escribi�:
Show quoted text 15 lines
Ac� hay informaci�n al respecto:
http://wiki.freepascal.org/Logging_exceptions
Yo utilic� algo similar, mandando a un log los errores (excepciones) que no eran manejados en sus respectivos lugares de origen o sea, despues de un if en el que decid�a si deb�a manejar el problema o no, mandaba un "raise" para que lo procese la unit que invoc� a este proceso, y as� subiendo nivel tras nivel.
El log final va en TApplication.OnException, y all� puedes obtener el origen de la excepci�n, incluida la unit y el componente que la gener�, m�s todo el backtrace (el hilo de rutinas que se han ejecutado hasta llegar a la que provoc� el error)
Suerte!
2015-01-10 16:19 GMT-03:00 Victor Villalobos <revxfire en gmail.com>: