Crear Form en una posición concreta

[roman]

Demasiado enredadas las explicaciones, pero es posible que el problema tenga que ver con esto:

Si la propiedad Position de un formulario es poScreenCenter, poOwnerFormCenter, poMainFormCenter, etc., alterar Left y Top en el evento OnCreate no tiene efecto. Mejor dicho, sí lo tiene, pero el reposicionamiento por Position viene después. Si dejas Position en poDesigned, no debe haber problemas para fijar la posición en OnCreate.

// Saludos

[[gluglu]]

Gracias Román,

Estoy de acuerdo contigo en todo lo que dices, y además lo he probado todo y confirmo lo que dices. Probé con todas las opciones de posicionamiento por defecto del Form y también me dí cuenta que en los casos que tu enumeras, modificar la propiedad Left o Top no tiene ningún efecto.

Si tuvieras Delphi 2005 te pido que pruebes a crear una aplicación básica y probar a modificar las propiedades Left y Top en el evento OnCreate del propio Form, a ver si yo estoy metiendo la pata hasta el fondo en algo que se me escapa.

[[gluglu]]

Ahh !! y añado algo más a todo esto...

Si bien esto da error:

Código Delphi [-]
uses Unit1;
{$R *.nfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
  Form2.Left := Form1.Left + 100;
  Form2.Top  := Form1.Top  + 100;
end;

esto otro en cambio NO da error:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Left := Form1.Left + 100;
  Form2.Top  := Form1.Top  + 100;
end;

[roman]

Vamos a ver si no es una barbaridad. Pero creo que todo proviene de la "mala" costumbre de referirse a una instancia particular de una clase desde métodos de la propia clase.

Su tu pones:

Código Delphi [-]
Form2 := TForm2.Create(Self);

estás creando una instancia de TForm2 que vas a asignar a la variable Form2. Pero en el OnCreate de TForm2 (no de Form2, observa la T) pones:

Código Delphi [-]
Form2.Left := Form1.Left + 100;
Form2.Top  := Form1.Top  + 100;

¡Pero Form2 no ha terminado de construirse! Así que el mensaje de error:

"Object reference not set to an instance of an object"

no suena ya tan raro ¿no? Form2 aún no es una instancia!!

Omite la referencia a Form2:

Código Delphi [-]
Left := Form1.Left + 100;
Top  := Form1.Top  + 100;

// Saludos

[[gluglu]]

Si Señor !!

Trivial y Genial. Mil gracias. ... es que el que sabe, sabe, y el que no, ...

[roman]

Empezado por gluglu

el que no, ...

aprende y entonces ya sabe

// Saludos