Problemas al crear Form

[lucasarts_18]

Hola Neftalí:

ya encontré el problema, al momento de crear el formulario yo hago otras instrucciones en éste:

procedure TFrmArchivos.FormCreate(Sender: TObject);
begin
   frmArchivos.Left := FrmPowerM.Left + frmPowerM.Width;
   frmArchivos.Top := FrmPowerM.Top;
end;

Al ver que el error que se producía, comente las instrucciones y ya no me levanta la excepción, pero yo necesito ese código para que aparezcan juntos los dos formularios, se entiende ?

Saludos

PD: No encontré los tag que mencionaste,utilicé code pero no queda igual que a tí .

[defcon1_es]

Hola,
creo que sería más eficiente que definieses un método público (supongo) en frmArchivos para asignar esos valores a las propiedades Left y Top , con lo que evitarías un uses a FrmPowerM en frmArchivos.

Ejp:

Código Delphi [-]
procedure TFrmArchivos.Posicion_en_Pantalla(Izq, Alto : Integer);
begin
  Self.Left := Izq;
  Self.Top := Alto;
end;

......
......

 procedure TFrmPowerM.FormShow(Sender: TObject);
 var varform:TFrmArchivos;
 begin
    varform := TFrmArchivos.Create(FrmPowerM);
    try
// Despues de crear el formulario, lo colocamos en pantalla.
      varform.Posicion_en_Pantalla(Self.Left + Self.Width, Self.Top);
{
De forma directa tambien puedes colocar ese formulario:
      varform.Left := Self.Left + Self.Width;
      varform.Top := Self.Top;
}
      varform.ShowModal;
    finally
      varform.Free;
      FrmPowerM.SetFocus;
    end;
 end;

Salu2.

[lucasarts_18]

Hola defcon1_es:

Gracias por la solución, ahora puedo hacer lo que tenía pensado.

Pero no entiendo por qué me pasaba eso, espero que alguien sepa y que me explique.

Gracias amigos .

Saludos.
Aarón.

[Neftali [Germán.Estévez]]

Empezado por lucasarts_18

...ya encontré el problema, al momento de crear el formulario yo hago otras instrucciones en éste...
...Al ver que el error que se producía, comente las instrucciones y ya no me levanta la excepción, pero yo necesito ese código para que aparezcan juntos los dos formularios, se entiende ?

Yo utilizaría ese código en el OnShow en lugar de en el Create. Cambia el código por éste:

Código Delphi [-]
 if Assigned(FrmPowerM) then begin
   Self.Left := FrmPowerM.Left + frmPowerM.Width;
   Self.Top := FrmPowerM.Top;
 end;

Empezado por lucasarts_18

No encontré los tag que mencionaste,utilicé code pero no queda igual que a tí .

Utiliza los mismos TAG's que has puesto, pero cambiando la palabra CODE por la palabra delphi.

[lucasarts_18]

Hola Neftalí:

Gracias por todo.

Saludos.
Aarón.