<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Acá hay información al respecto:</div><div class="gmail_default" style><font face="tahoma, sans-serif"><a href="http://wiki.freepascal.org/Logging_exceptions">http://wiki.freepascal.org/Logging_exceptions</a></font><br></div><div class="gmail_default" style><font face="tahoma, sans-serif"><br></font></div><div class="gmail_default" style><font face="tahoma, sans-serif">Yo utilicé algo similar, mandando a un log los errores (excepciones) que no eran manejados en sus respectivos lugares de origen</font></div><div class="gmail_default" style><font face="tahoma, sans-serif">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.</font></div><div class="gmail_default" style><font face="tahoma, sans-serif">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)</font></div><div class="gmail_default" style><br></div><div class="gmail_default" style>Suerte!</div><div class="gmail_default" style><font face="tahoma, sans-serif"><br></font></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-01-10 16:19 GMT-03:00 Victor Villalobos <span dir="ltr"><<a href="mailto:revxfire@gmail.com" target="_blank">revxfire@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Buenas, <div><br></div><div>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:</div><div><br></div><div><div>case TPageControl.ActivePage.Caption of</div><div> 'Form1': Begin End;</div><div> 'Form1': Begin End;<br></div><div>end;</div><div> </div></div><div><br></div><div>Saludos , revisa el otro hilo que te deje lo que me pedistes.</div></div><div class="gmail_extra"><br><div class="gmail_quote">El 9 de enero de 2015, 14:53, Rubén Ibáñez <span dir="ltr"><<a href="mailto:ruben.mariano.ibanez@gmail.com" target="_blank">ruben.mariano.ibanez@gmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><span class=""><div dir="ltr"><div><div>Hola,<br></div>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.<br></div>Saludos.<br><br></div>
<br></span><span class="">_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></span></blockquote></div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><div><br></div>-- <br><div><div dir="ltr">Victor Villalobos<div>Bahia Pirata</div><div>Inversiones Villalobos Balzan.<br>0412 6882141<br></div></div></div>
</font></span></div>
<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><span style="font-size:small;font-family:tahoma,sans-serif"><div style="display:inline"></div></span><font face="tahoma, sans-serif" style="font-size:small">Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program.<div style="display:inline"> </div></font><i style="font-size:small;font-family:tahoma,sans-serif">Linus Torvalds</i><br></div></div>
</div>