no cargar varias form en una instancia...

[lucasarts_18]

Hola:

Código Delphi [-]
  
procedure TForm1.Button1Click(Sender: TObject);
begin
   if (Form2 <> nil) and not (Form2.Visible = true)  then
   begin
     Form2.Create(Self);
     Form2.Show;
   end;
end;

Saludos.

[roman]

Je, je. Es curioso. Vi el mensaje de lucasarts_18 en el mail y entré para indicar que algo está incorrecto y pues me percato que desde el ejemplo que yo puse está mal

La comparación no puede ser

Código Delphi [-]
if frm1 <> nil then

sino alrevés:

Código Delphi [-]
if frm1 = nil then

// Saludos

[uper]

muy bien pero, si cierro la ventana segunda ya no se vuelve a cargar, debo de cerrar la primer ventana y solo a si me vuleve a abrir la segunda ventana, el codigo corregido es este:
if frm2 <> nil thenbegin frm2 := Tfrm2 .Create(Self); frm2 .Show;end;
frm1 pricipal ventana
frm2 segunda ventana
gracias

[roman]

A ver. Creo que ya nos liamos.

El código que pones no es correcto según la aclaración que hice en el último mensaje.

En frm1, para abrir el segundo formulario pones:

Código Delphi [-]
if frm2 = nil then
begin
  frm2 := Tfrm2.Create(Self);
end;

frm2.Show;

En el evento OnClose del segundo formulario pones:

Código Delphi [-]
procedure Tfrm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frm2 := nil;
end;

Si el segundo formulario está abierto entonces frm2 es distinto de nil y la condición en el primer código evita que se cree de nuevo.

Cuando cierras el segundo formulario, la asignación Action := caFree hace que el formulario se destruya y la asignación frm2 := nil vuelve a poner a nil la variable con la que te refieres al formulario. Entonces, cuando vuelves a intentar abrirlo, la condición (frm2 = nil) es ahora cierta y se vuelve a crear.

En cualquiera de los dos casos el formulario se muestra. Si ya existía, frm2.Show garantiza que se ponga al frente en caso de haber estado oculto por otra ventana.

// Saludos