Crear Form en una posición concreta

[[gluglu]]

Hola Amigos !

Me atasco en lo más simple y trivial ... lo reconozco !

Quiero posicionar un form que creo con ShowModal según la posición del Form que lo llama. Necesito una pequeña ayudita. Gracias.

He probado con

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

[marcoszorrilla]

Código Delphi [-]
 implementation
 
 uses Unit2;
 
 {$R *.DFM}
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 Form2.ShowModal;
 end;

Código Delphi [-]
 procedure TForm2.FormCreate(Sender: TObject);
 begin
 form2.Left:=form1.left -100;
 form2.Top:=form1.top - 100;
 end;

Te falta hacer Use del Form1

Un Saludo.

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