|
Hola:
La sentencia p.Parent := Form1, puede ser una fuente de errores, puesto que sólo es válida cuando has creado una instancia del tipo TForm1 asociada a la variable Form1. ¿Qué ocurre si creas un TForm1 sin asociarlo a Form1? Sucedería que le estarías asignando Form1 a p.Parent (Form1 podría ser nil o incluso algo peor, léase una dirección inexistente). Lo mejor es que pongas p.Parent := Self.
Si el formulario está en AutoCreate no fallará, porque Delphi instancia la variable Form1, pero si no es así, puede que vayan por ahí los tiros de por qué no te aparece la línea ni nada que dibujes en el PaintBox.
A ver si es eso, un saludo
|