Crear Form en una posición concreta

[[gluglu]]

Gracias Marcos,

Tengo hecho el Use del Form1 dentro del Form2, y viceversa ...
Adicionalmente informo que el Form1 a la vez se ha creado con ShowModal desde un Form Principal. Que puede estar pasando ?

He probado esto creando un nuevo proyecto básico:

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses Unit2;
{$R *.nfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;
end.

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
uses Unit1;
{$R *.nfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
  Form2.Left := Form1.Left + 100;
  Form2.Top  := Form1.Top  + 100;
end;
end.

Cada vez que intento abrir el Form2 me da el siguiente error : "Object reference not set to an instance of an object".

P.D. Una vez más decir que utilizo Delphi 2005 y VCL.NET

Gracias

[dec]

Hola,

Estás intentando llamar al método "ShowModal" del "Form2", pero, ¿dónde se crea ese objeto? No se crea, de ahí el error "Object reference not set to an instance of an object", o sea, antes de llamar al método "ShowModal" crea el formulario, de este modo, por ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  //if not Assigned(Form2) then
  Form2 := TForm2.Create(Self);
  Form2.ShowModal;
  // Form2.Free;
end;

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