Ventanas dobles

[davidgaldo]

Hola, tengo un pequeño problema, resulta que tengo una aplicación
con un menú principal, que el pulsar en un botón me abre otra ventana y si
vuelvo a pulsar el botón me abre otra igual, lo que quería era evitar que se abriera una segunda ventana si tengo la primera ya abierta, como hago?

[tcp_ip_es]

Puedes hacer que esa ventana sea modal

Código Delphi [-]
form1:=tform1.create(self);
form1.showmodal;

Saludos, Tony

[Nuria]

Añadir a lo dicho por tcp_ip_es.

Código Delphi [-]
  if not assigned(Form1) then
    Application.CreateForm(TForm1,Form1);
  Form1.show;

Saludos!

[roman]

Agregar a lo dicho por Nuria.

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; Action: TCloseAction);
begin
  Form1 := nil;
end;

// Saludos

[delphi.com.ar]

Uno mas ... Te recomiendo este mensaje: http://www.clubdelphi.com/foros/show...56&postcount=2

Saludos!