[Lazarus-es] Como saber que form o unit es en la que estoy?

[Martin Gomez]

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>:

> 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ó:
>
>> 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.
>>
>>
>> _______________________________________________
>> Lazarus-es mailing list
>> Lazarus-es en lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>>
>>
>
>
> --
> Victor Villalobos
> Bahia Pirata
> Inversiones Villalobos Balzan.
> 0412 6882141
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>


-- 
​
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.
​ ​
*Linus Torvalds*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20150111/8cc6ee4b/attachment-0002.html>