<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"><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>_______________________________________________<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">Victor Villalobos<div>Bahia Pirata</div><div>Inversiones Villalobos Balzan.<br>0412 6882141<br></div></div></div>
</div>