Crear Form en una posición concreta

[[gluglu]]

Perdón !!

Ya me dí cuenta que no viene en el código la creación del Form.
También me he asegurado que el Form2 no se crea automáticamente cuando ejecuto la aplicación.

Aún así, escribiendo bien el código, creándo el Form correctamente, me sigue dando el error. Incluso he probado en Delphi 2005 para Win32.

[[gluglu]]

... trivial !

Código Delphi [-]
  Form2 := TForm2.Create(Self);
  Form2.Left := Form1.Left + 100;
  Form2.Top  := Form1.Top  + 100;
  Form2.ShowModal;

Ahora bien, emplazo a todos a buscarle explicación a por qué lo anteriormente expuesto no funciona al parecer en Delphi 2005.

[dec]

Hola,

Empezado por gluglu

Ahora bien, emplazo a todos a buscarle explicación a por qué lo anteriormente expuesto no funciona al parecer en Delphi 2005.

Es que, o estoy perdido, o tendría que funcionar. Antes dijiste que te aparecería el error de que no estaba creado el objeto, ahora, ¿te aparece acaso otro error? ¿Cuál? Porque, ya digo, o me estoy perdiendo algo o lo creando el objeto en su momento la cosa parece que funcionaría...

[[gluglu]]

Yo llevo perdido todo el día !!

Bueno, finalmente no sé ni porqué, ni como, pero hay veces que no le pienso buscar explicación al Delphi, pues resulta que a pesar de todo, si intento posicionar el Form2 en el evento OnCreate del propio Form2, con posición relativa a Form1, a pesar de poner correctamente el Use y todo eso no funciona.

Después la contestación que yo mismo dí, posicionando el Form2 antes del ShowModal, funcionaba y funciona correctamente en mi aplicación básica de prueba. Pero absolutamente el mismo procedimiento NO me funciona en mi aplicación. No sé por qué. No voy a entrar ahora aquí en detalle de todos los elementos que tengo en el form ni nada de eso.

Lo que si quiero detallar es que llamo a ShowModal desde un evento de un DBGrid contenido en ese Form.

Pues bien, si intento posicionar el Form que voy a abrir, desde mi aplicación, y con Form2.Left := Form1.Left + 100 me sigue dando error "Object reference not set to an instance on an object".

EN CAMBIO !! si la instrucción que pongo es

Form2 := TForm2.Create(Self);
Form2.Left := Self.Left + 100;
Form2.ShowModal;

me funciona perfectamente ! y posicionándome el Form2 correctamente con respecto al Form1, tal y como lo quiero.

Evidentemento no me explico el porqué de esto. A lo mejor alguien lo sabe ...

Un saludo a todos !

P.D. Adjunto el código completo de la rutina que me dá el quebradero de cabeza

Código Delphi [-]
procedure TBookingRoomingList.EditCurrentExecute(Sender: TObject);
begin
  If (DataModule1.IBQuery9.Eof and DataModule1.IBQuery9.Bof) then abort;
  BookingRoomingList1 := TBookingRoomingList1.Create(Self);
  BookingRoomingList1.Left := Self.Left + 100;
  BookingRoomingList1.Top  := Self.Top  +  65;
  BookingRoomingList1.ShowModal;
  BookingRoomingList1.Free;
  DataModule1.IBQuery9SURNAME1.OnGetText          := DataModule1.IBQuery9SURNAME1GetText;
  DataModule1.IBQuery9DATEARRIVAL.DisplayFormat   := 'dd/mm';
  DataModule1.IBQuery9DATEDEPARTURE.DisplayFormat := 'dd/mm';
  DataModule1.IBQuery9.Refresh;
end;

[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;