cambio de formulario
 

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.

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

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

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

Espero te sirva ;).

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

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;

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

es un cambio de formulario, simplemente

en visual 6 se hace haci

form2.show
close;

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

Hola aca les dejo un ejemplo de mi aplicacion

Lo pueden bajar de aqui

entonces no lo podre terminar?

Saludos

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;

ya muchas gracias !! funciona