10 respuestas en este tema

[FGarcia]

Compañebrios:

Algo estoy haciendo mal y no lo veo......

Mi formulario de entrada es frmInicio, dentro de el tengo un boton que llama a un segundo formulario llamado frmEntradas el cual quiero crear en una posicion especifica dentro o en el area de  frmInicio

delphi

procedure TfrmInicio.btnEntraNuevaClick(Sender: TObject);
begin
   with TfrmEntradas.Create(Application) do
    Parent := frmInicio;
    try
      Top := frmInicio.Top + 150;
      ShowModal ;
    finally
      free;
    end;
end;

al ejecutar me aparece este mensaje

[Content]
TCustomForm.ShowModal for frmInicio:TfrmInicio impossible, because already visible (hint for designer forms: set Visible property to false).

Press OK to ignore and risk data corruption.
Press Cancel to kill the program.

El detalle aqui es que el frmInicio intenta desplazarse hacia abajo y aparece el mensaje anterior.


Algo esta mal. Y no son las "cheves" de festejo que llevo ¿me ayudan?



Felices fiestas!!!! 

[escafandra]

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(Application) do
      try
        Top := Form1.Top;
        ShowModal ;
      finally
        free;
      end;
end;

Form2 como disponible (No autocreado)
No se le asigna Parent a una ventana modal.

Saludos.

[FGarcia]

gracias escafandra, ya habia probado ese codigo y el resultado no es el esperado, por eso habia probado tratando de asignar el parent.  De hecho me crea el segundo formulario en la posicion por default de la esquina superior izquierda del monitor. En alguna pagina lei que en vez de asignar el Primer Form deberia de asignar algun control dentro del mismo lo he intentado y tampoco funciona.

delphi

procedure TfrmInicio.btnEntraNuevaClick(Sender: TObject);
begin
   with TfrmEntradas.Create(Application) do
    try
      Top := PageControl1.Top  + 50;
      ShowModal ;
    finally
      free;
    end;
end;

Algo falta, no se si es mi codigo o es Lazarus 1.1 (CodeTyphon 2.80)

Se siguen aceptando sugerencias.


Gracias por el tiempo.

[pcicom]

delphi

procedure TForm1.Button1Click(Sender: TObject);
Var xForm : TfrmEntradas;
begin
 
  try     
       xForm := TfrmEntradas.Create(Application)
       xForm.Top :=  frmInicioTop; + 150;
       xForm.ShowModal ;
  finally
       xForm.free;
  end;
 
end;

[escafandra]

...ya habia probado ese codigo y el resultado no es el esperado...

Pues entonces no se cual es el resultado que tu esperas. Ese código coloca el Top del segundo formulario justo donde yo espero.

Ahora lo que no entiendo es lo que has añadido:

delphi

Top := PageControl1.Top  + 50;

¿Que pretendes conseguir exactamente?


Saludos.

[FGarcia]

El resultado esperado es ese exactamente: Colocar el top del segundo formulario donde yo quiero; pero no, el formulario se crea en la posicion por default (esquina superior izquierda)

El codigo mas nuevo que postee es :

En alguna pagina lei que en vez de asignar el Primer Form deberia de asignar algun control dentro del mismo lo he intentado y tampoco funciona.

La plataforma de desarrollo Lazarus32 (Lazarus 1.1) (CodeThypon 2.80) sobre Windows7 64 bits

p.d. pcicom pruebo tu sugerencia y comento.

Gracias

[escafandra]

Pues te subo el ejemplo que hice con proyecto y binario en la versión 0.9.30.4

Saludos.

[FGarcia]

  El binario funciona bien, el source tambien 

Modifique posiciones en el source y le añadi la posicion de Left y todo funciona ok.

El mio no funciona!   

pcicom tu sugerencia me da el mismo resultado, se crea el segundo form en la posicion esquina superior izquierda.

[poliburro]

no será un bug de la versión amigo fgarcia?

qué versión usas?

[FGarcia]

Amigo Poli:

La plataforma de desarrollo Lazarus32 (Lazarus 1.1) (CodeThypon 2.80) sobre Windows7 64 bits

Por otra parte revisando el codigo de escafandra y el inspector de objetos observe que el dejo la propiedad Position en poDesigned mientras que yo habia dejado el frmInicio en poScreenCenter y el frmEntradas en poDesigned, cambie la propiedad a designed en los dos forms y ¡¡Funciono!! Si señores solo ese cambio hice y funciono perfectamente, probe varios top, añadi left y funciono.

Como no me quise quedar con dudas volvi a cambiar Position a poScreenCenter en frmInicio y volvi a probar, hasta este momento esta funcionando.

Continuare viendo que sucede antes de decir que es un bug.

Saludos y felices fiestas!

[mightydragon_lord]

No es un bug, es un error frecuente de programación, lo que debes hacer es abrir el archivo lpr del proyecto, y eliminar la línea donde está creando el formulario, es decir, el error ocurre tratando de crear un formulario ya creado, y si no recuerdo mal, la propiedad visible en el editor de propiedades del formulario que vas a crear en tiempo de ejecución debe estar en False.

Saludos.