Abrir formulario solo una vez

[morfeo21]

Hola, que tal?

Mi problema es el siguiente:


Tengo un formulario MDI Parent y un formulario MDI Children. Al hacer clic en el boton para abrir el formulario children me lo abre como tantas veces haga clic en el boton sin importar si el form ya esta abierto o no. Como puedo solucionar esto?. gracias de Antemano



el codigo que utilizo es el siguiente:
en el formulario

Código Delphi [-]
procedure XOrdenCompra001(Owner:TComponent);
 Begin
  FrmOrdenCompra001:=TFrmOrdenCompra001.Create(Owner);
  FrmOrdenCompra001.Show;
End;

cuando lo llamo

Código Delphi [-]
   XOrdenCompra001 (Self)

AÑADIDO (Neftalí): Utiliza etiquetas cuando coloque código Delphi.

[rgstuamigo]

Empezado por morfeo21

Hola, que tal?

Mi problema es el siguiente:


Tengo un formulario MDI Parent y un formulario MDI Children. Al hacer clic en el boton para abrir el formulario children me lo abre como tantas veces haga clic en el boton sin importar si el form ya esta abierto o no. Como puedo solucionar esto?. gracias de Antemano

Seria muy, pero muy interesante, si pusieras el código de como abres el formulario..
Saludos...

[look]

Empezado por morfeo21

Hola, que tal?

Mi problema es el siguiente:


Tengo un formulario MDI Parent y un formulario MDI Children. Al hacer clic en el boton para abrir el formulario children me lo abre como tantas veces haga clic en el boton sin importar si el form ya esta abierto o no. Como puedo solucionar esto?. gracias de Antemano

Código Delphi [-]
  if not Assigned(Form2) then
  begin
    Form2:=TForm2.create(nil);
  end
  else
  begin
    Form2.show;
  end;

[*Caro*]

Hola morfeo21, como te indican deberías utilizar la función Assigned, pero si en el OnClose de tu MDIChild liberaras con Action:=caFree; solo va a funcionar la primera ves ya que no te lo pone a nil, por lo que la siguiente ya no se abriría tu formulario.

Código Delphi [-]
//En el OnClose liberas con FreeAndNil
procedure TForm2.FormClose(.....);
begin
 FreeAndNil(Form2);
end;
 
//Y en la llamada a tu MDIChild
if Not Assigned(Form2) then
  Form2:=TForm2.create(Self);

Saluditos

[[jcarteagaf]]

Tengo una funcion que me hace precisamente eso

Código Delphi [-]
procedure ShowFormMDI(TfrmClass: TFormClass;bMultiInstace : boolean);
var
  i : SmallInt;
  F : TForm;
begin
  if not bMultiInstace then
    for i := Application.MainForm.MDIChildCount - 1 downto 0 do
    begin
      F := Application.MainForm.MDIChildren[i];
      if F.ClassType = TfrmClass then
      begin
        if F.WindowState = wsMinimized then
           F.WindowState := wsNormal;
        F.BringToFront;
        Exit;
      end;
    end;
  with TfrmClass.Create(Application) do
    Show;
end;

y lo llamo de la siguiente forma

Código Delphi [-]
ShowFormMDI(TFormaHija,false);

El segundo parametro te indica si se permite o no que se llame mas de una vez al formulario. Si no lo permites y el formulario esta abierto lo activara.

Espero te sirva

Saludos.

[morfeo21]

Gracias Caro era justo lo que necesitaba ya lo estoy implementando en mi proyecto, siempre hay algo que se aprende todos los dias

[hectormea]

Empezado por Caro

Hola morfeo21, como te indican deberías utilizar la función Assigned, pero si en el OnClose de tu MDIChild liberaras con Action:=caFree; solo va a funcionar la primera ves ya que no te lo pone a nil, por lo que la siguiente ya no se abriría tu formulario.

Código Delphi [-]
//En el OnClose liberas con FreeAndNil
procedure TForm2.FormClose(.....);
begin
 FreeAndNil(Form2);
end;
 
//Y en la llamada a tu MDIChild
if Not Assigned(Form2) then
  Form2:=TForm2.create(Self);

Saluditos

muchas gracias soy nuevo en estoy y me a servido mucho!