cambio de formulario

[skinnerpro]

Hola tengo dos formulario.

Al darle click en el boton siguiente este debe de hacer cerrar y abrir el que viene:

Ejemplo:
El formulario 1, se da click en el boton y se cierra pero abre de inmediatamente el fomulario 2 en el mismo lugar donde se cerro el fomulario 1

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ShowModal;
Close; 
end;

Sucede que no se cierra completamente el Form1 y el Form2 aparece en otra ubicacion, no lineal.

[[eduarcol]]

en la propiedad position del formulario elige poScreenCenter, que codigo utilizas para desaparecer los Form??

[skinnerpro]

o sea quiero que se cierre el form 1 que no se vea ni transparente ni nada

Código Delphi [-]
close;

pero no sucede nada, se mantiene hay

[jhonny]

En el OnDestroy del formulario 1 colocas form2.ShowModal; y en el boton del formulario 1 Close;

Espero te sirva .

[[eduarcol]]

pero si Form1 es el principal al cerrar no se termina el proyecto???

[skinnerpro]

Hola lo provbe y me da un super error

mirar error

Código SQL [-]
procedure TForm1.FormDestroy(Sender: TObject);
begin
Form2.ShowModal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

[[eduarcol]]

porq no nos explicas lo que deseas lograr?? porq el formulario principal del proyecto no lo vas a poder cerrar porq termina la aplicacion...

[skinnerpro]

es un cambio de formulario, simplemente

en visual 6 se hace haci

form2.show
close;

[jhonny]

Empezado por eduarcol

porq no nos explicas lo que deseas lograr?? porq el formulario principal del proyecto no lo vas a poder cerrar porq termina la aplicacion...

Ahhh, pues no sabia que el Form1 era el formulario principla de tu proyecto, ¿Eso es asi realmente?

[skinnerpro]

Hola aca les dejo un ejemplo de mi aplicacion

Lo pueden bajar de aqui

entonces no lo podre terminar?

Saludos

[[eduarcol]]

No tengas tanta poca fe, esto es un truco barato pero a tus necesidades les debe funcionar, cambia todo el codigo del form1, por esto en el button1

Código Delphi [-]
var
   cMensaje: String;
begin

   //Determina que opciones fueron elegidas
   cMensaje := '';
   if CheckBox1.Checked then
      cMensaje := CheckBox1.Caption;

   if CheckBox2.Checked then
      cMensaje := cMensaje + CheckBox2.Caption;

   if CheckBox3.Checked then
      cMensaje := cMensaje + CheckBox3.Caption;
   //Muestra el mensaje
   ShowMessage(cMensaje);

   //Muestra el Form2
   Form1.Visible := False;
   Form2.ShowModal;
   Form1.Visible := True;

end;

[skinnerpro]

ya muchas gracias !! funciona