10 respuestas en este tema

[Caral]

Hola
Como puedo saber si se ha creado un form?.
Digamos que tengo este codigo que me crea el form2:

delphi

  form2:=Tform2.Create(self);
  try
   form2.ShowModal;
   finally
   form2.Free;

Lo que qiuiero es saber si se ha creado.
Osea: Si se ha creado que no se vuelva a crear.
Como lo puedo saber o ver o identificar?.
Aparte de verlo por supuesto....
Saludos

[egostar]

Hola amigo

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not assigned(Form2) then
  begin
    form2:=Tform2.Create(self);
    try
      form2.ShowModal;
    finally
      form2.Free;
    end;
  end;
end;

Salud OS

[Caral]

Hola
Muchas gracias amigo, estaba haciendolo asi:

delphi

   if assign(Form2) = nil then 
  begin 
  Form2 := TForm2.create(self);
  try
      form2.ShowModal;
    finally
      form2.Free;
    end;
  end;

Y me decia que eran incompatibles.
Gracias.
Saludos

[egostar]

Hola
Muchas gracias amigo, estaba haciendolo asi:

delphi

   if assign(Form2) = nil then 
  begin 
  Form2 := TForm2.create(self);
  try
      form2.ShowModal;
    finally
      form2.Free;
    end;
  end;

Y me decia que eran incompatibles.
Gracias.
Saludos

Ah pues que bien que le sirvió, ponga usted el hilo como [RESUELTO]

Salud OS

[Caral]

Hola
Todavia tengo algo mas...
El codigo sirve, si esta creado no lo crea, pero si lo creo una vez luego no lo puedo volver a crear.
Esto es lo que tengo:

delphi

if not assigned(Form3) then
  begin
  Form3:=TForm3.Create(self);
  try
   Form3.Show;
   while Form3.Visible do
   begin
   For I:=1 to 10000 do
   Begin
   Application.ProcessMessages;
     end;
    end;
    finally
    Form3.Free;
   end;

Lo que hace ese codigo es simple, se crea el form pero aun creado se puede acceder a cualquier otro form creado, como si fueran MDI.
Saludos

[eduarcol]

En el evento onClose del formulario agrega esta linea:

delphi

Action := caFree;

[Caral]

Hola
Gracias amigo pero no funciona, envia un error al querer volver a crearlo.
La solucion por lo menos parcial es asi:

delphi

var  I  : integer;
begin
  if assigned(Form3) then
  begin
  Form3.Show;
  end;
 
  if not assigned(Form3) then
  begin
  Form3:=TForm3.Create(self);
  try
   Form3.Show;
   while Form3.Visible do
   begin
   For I:=1 to 10000 do
   Begin
   Application.ProcessMessages;
     end;
    end;
    finally
  //  Form3.Free;
   end;
 
end;

Si se libera o destruye el form da error al querer crearlo otra vez, osea, como que lo mantiene en memoria para poder usarlo.
Me imagino que es parecido a crear los forms de golpe en el proyecto ya que se pueden llamar con un simple Show y no con un showModal.
Saludos

[Caral]

Hola
Este es el ejemplo que estaba haciendo.
Se crea cualquier form y se puede trabajar con el que sea, sin tener que cerrar o abrir forms que es lo que pasa con el ShowModal.
Saludos

Archivos adjuntos

•  1644_3df34b10f4b1b238c03c782307e0dee04dc2d18e.zip   10,65KB   1 descargas

[Caral]

Hola
En el form1 en el boton CERRAR poner este codigo.

delphi

procedure TForm1.Button3Click(Sender: TObject);
var
  i :Integer;
  comp:TComponent;
begin
  for i := 1 to 100 do begin
  comp := FindComponent('Form' + IntToStr(i));
  if assigned(TForm(comp)) then
  begin
  TForm(comp).Close;
  end;
  end;
  Close;
end;

Este es para cerrar los forms que esten activos ya que si se quiere cerrar el form principal no se podra, se tendra que cerrar uno por uno los forms activos, con este codigo se cerraran todos.
Saludos

[cadetill]

Buenas,

Para comprobar si un formulario está o no creado yo uso este código

delphi

function TMenuFrm.WindowsExist(aForm: TForm): Boolean;
begin
  Result := False;
  if not Assigned(aForm) then Exit;
 
  Result := Self.FindComponent(aForm.Name) <> nil;
end;

Un ejemplo de llamada

delphi

procedure TMenuFrm.bInClick(Sender: TObject);
begin
  if WindowsExist(InFrm) then ActivateWindows(InFrm)
  else
  begin
    InFrm := TInFrm.Create(Self);
    InFrm.Show;
  end;
end;

La función ActivateWindows activa el formulario si existe

delphi

procedure TMenuFrm.ActivateWindows(aForm: TForm);
var
  Comp: TComponent;
begin
  Comp := Self.FindComponent(aForm.Name);
  if Comp is TForm then
  begin
    TForm(Comp).Show;
    TForm(Comp).BringToFront;
  end;
end;

Espero te sirva

Nos leemos

[JoAnCa]

Aunque ya está resuelto quiero dar mi aporte 

Para el caso de los formularios MDI yo uso el siguiente procedimiento, si el form está lo muestra y si no, lo crea

delphi

procedure CreateMDI(Owner:TForm; BaseClass:TFormClass; FormVar:TForm);
 var
   Found  :Boolean;
   i      :integer;
 
begin
  Found:=False;
  For i:= 0 To Owner.MDIChildCount-1 Do
    If Owner.MDIChildren[i] is BaseClass Then
    Begin
      Owner.MDIChildren[i].Show;
      Found:=True;
    End;
  if not found then
    Application.CreateForm(BaseClass, FormVar);
end;