metodos para hacer que una forma solo se ejecute una vez

[roman]

Empezado por DEPROE

¿hay alguna manera facil de lograr eso?

Todo depende de qué es lo que quieras hacer exactamente y de qué consideras laborioso. Lo fácil no es sinónimo de correcto.

Mi método favorito es éste:

1. Quita todos los formularios secundarios de la opción AutoCreate
2. En el evento OnClose de tus formularios secundarios pon Action := caFree;
3. En el formulario principal redefine el método Notification:

Código Delphi [-]
interface

type
  TForm1 = class(TForm)
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  end;

implementation

(*
  Este método se llama cuando una componente (AComponent) se crea
  o se destruye (Operation). Lo usamos para segurar que la variable de
  un formulario secundario sea nil cuando el formulario se destruye.
*)
procedure TForm1.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;

  { Form2 es un formulario secundario                }
  { Haz lo mismo parar otros formularios secundarios }
  if (AComponent = Form2) and (Operation = opRemove) then
    Form2 := nil;
end;

end.

4. Cuando quieras mostrar un formulario secundario haces esto:

Código Delphi [-]
if not Form2 <> nil then
  Form2 := TForm2.Create(Application);

Form2.Show;

La cosa cambia si abres formularios desde otro lugar que no sea el formulario principal pero esta es la idea.

// Saludos

[DEPROE]

me parece muy interesante tu manera de hacer que solo se ejecute una vez cada forma

no puse la manera en que yo lo hago para ver si se podia de una forma diferente y asi lo fue

esta es la forma en que yo lo logro:

primero declaro esta función

Código Delphi [-]
      function DesplegarForma(cForma: TClass): Boolean;
       var 
        I : integer;
      begin 
   Result := True;
        for  I := 0 to Screen.FormCount-1 do
         if Screen.Forms[i].ClassType = cForma then
     begin
             Result := False;
             Screen.Forms[i].SetFocus;
             if Screen.Forms[i].WindowState = wsMinimized  then
              Screen.Forms[i].WindowState := wsNormal;
             Break
           end;
      end;

y la uso asi

Código Delphi [-]
      if  DesplegarForma(eltipodemiforma) then
   begin
    miforma := eltipodemiforma.Create(Self);
          show;
   end;

con esto logro no solo que no se cre una nueva, tambien consigo que se muestre la que ya esta creada

¿tiene alguna falla?

gracias por su atención
saludos

[DEPROE]

en lo que mande antes hay una falta

al igual que en metodo de roman se debe

1. Quitar todos los formularios secundarios de la opción AutoCreate
2. En el evento OnClose de tus formularios secundarios poner Action := caFree;

disculpen esta falta

saludos

[andres1569]

Pues yo no veo que debas seguir ninguno de esos dos pasos para conseguir lo que quieres, el método DesplegarForma, visto así por encima, parece que hace lo que debe, y, se hayan autocreado los formularios o no, debe funcionar igual.

Ten en cuanta que en el ejemplo de Roman, se chequea una variable (Form2 del tipo TForm2 en el ejemplo), de ahí la necesidad de saber si está a nil o no, y de que interese destruirla al cerrarse (con caFree) y avisar al Form principal para que la ponga a nil cuando ello suceda. Pero en tu caso, puesto que no chequeas una variable concreta sino un tipo de formulario, eso no es necesario.

Saludos

PD: el código que pones lo puedes encerrar entre una etiqueta [ delphi ] para que se vea más claro