pregunta sobre forms
 

Hola amigos tengo la siguiente duda:
Tengo diseñados 2 forms, el cual uno es principal y el otro es el secundario, todo en forma modal no mdi.
Tengo diseñado un botón en el form principal que cuando sea pulsado me muestre el form secundario y me oculte el principal o me lo desactive.
De la forma que lo tengo diseñado me muestra las 2 ventanas, aqui os muestro el codigo:

procedure TForm1.Button1Click(Sender: TObject);
var
vform1:TForm1;
vform2:TForm2;
begin
form1:=TForm1.Create(self);
vform2:=TForm2.Create(self);
vform1.Hide;
vform1.close;
vform2.showmodal;

end;

Gracias por vuestra ayuda

Alberto

Y cual es la duda o lo que quieres conseguir?

Aunque el código debería ser algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  vform2: TForm2;
begin
  vform2 := TForm2.Create(self);
  Form1.Hide;
  vform2.showmodal;
  Form1.Show;
  FreeAndNil(vform2);
end;

Más o menos, y sin coltrol de errores, eso te lo dejo a ti ;)

Generalmente lo hago así:


Hide;

Frm2 := TFrm2.Create( Self );
Frm2.ShowModal;
Frm2.Free;

Application.Terminate;

Espero te ayude.

DAros las gracias
 

Muchas gracias a todos, me habeis servido de mucha ayuda.
Saludos Alberto