Dudas Crear Objetos en Tiempo de Ejecución

[Deiv]

Hola,
El siguiente código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  NuevoForm: TForm;
  NuevoBoton: TButton;
begin
  NuevoForm := TForm.Create(nil);
  NuevoForm.Parent := nil;
  NuevoForm.Left := 100;
  NuevoForm.Top := 100;
  NuevoForm.width := 500;
  NuevoForm.Height := 400;
  NuevoForm.Caption:='Nuevo Formulario';
  NuevoForm.Name := 'MiForm';
  NuevoForm.FormStyle:= fsStayOnTop;
  NuevoForm.Show;
  NuevoBoton := TButton.Create(NuevoForm);
  NuevoBoton.Parent := NuevoForm;
  NuevoBoton.Left := 100;
  NuevoBoton.Top := 100;
  NuevoBoton.Caption:='Clickme';
  NuevoBoton.Name := 'MiBoton';
end;

Crea un Nuevo Formulario con un Botón dentro.

1.- ¿Cómo DESTRUYO (Free=donde coloco?) estos objetos al cerrar la 2da ventana (NuevoForm) creada?. Lo que pasa es que cada vez que clicko el Button1 me crea muchos Forms incluido su botón. Lo que necesito es crear una sola vez, por mucho que le dé n-veces click al Button1.
2.- No recuerdo cual es la propiedad de un Form que por ejemplo AL CREAR el 2do Form:
...... a) ¿Cómo ubico por encima del principal?, es acaso...FormStyle:= fsStayOnTop? y
...... b) ¿Cómo deshabilito el Form principal mientras esté activo el 2do Form hasta que lo cierre?

[droguerman]

tu variable nuevoForm ponla dentro de tu formulario principal

Código Delphi [-]
TForm = class(TForm)
private
  NuevoForm : Tform;
...
end;

luego en tu evento has lo siguiente

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not assigned(NuevoForm) then 
  begin
     NuevoForm := TForm.Create(nil);
     NuevoForm.Parent := nil;
     ...
  end
  NuevoForm.show;

si aun no funciona pon la variable NuevoForm dentro de una unidad y hazla visible es decir ponla en la parte de interface para que las demas unidades puedan verla

saludos

[Deiv]

Gracias,
droguerman en este momento no tengo Delphi a mano, llegando a casa lo probaré. No se si entendí mal, pero....... ¿donde libero los objetos?

Sinaloense, en tu ejemplo hablas sobre liberar el objeto, bien, como dije probaré vuestros ejemplos y mas tarde os comento. Estoy en un Ciber.

Solamente argumentar que la primera vez que he creado un form le hice con (self) (NuevoForm := TForm.Create(self) y este evidentemente me ha creado el form, pero dentro del mismo form, por eso opté por (nil); luego al crear el form con el código que les presenté, realmente me resultaba mejor, pero el problema era que la principal (si seleccionaba la ventana) se colocaba encima de la nueva, por ello no se si se olvidaron de mi segunda pregunta por favor

[Deiv]

Bueno he probado el código de droguerman y funciona, solo quedaría salir de dudas sobre mi segunda pregunta, pero el código Sinaloense no le entendí nada (por Novato)

Empezado por Sinaloense

En la forma que creas al presionar el botón en el evento onClose pon entas línea:
Código:
Action := caFree;

¿En cual evento, si aún no he creado mi Forma?. Si bien todo es creado en tiempo de ejecución, ¿donde entonces coloco esa parte del código?

Código Delphi [-]
function TForm2.existe_forma(AClase: string): Boolean;
var
 i:Integer;
begin
  for i := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].ClassName = AClase then
      Result := True
    else
      Result := false;
end;

Lo propio aquí esto de: TForm2.existe_forma, Yo entiendo que se coloca cuando está creada la forma, ya que Delphi me devuelve varios errores:
[Error] CreaForm.pas(26): Function needs result type
[Error] CreaForm.pas(31): Undeclared identifier: 'AClase'
[Error] CreaForm.pas(43): Undeclared identifier: 'existe_forma'

Código Delphi [-]
if not existe_forma('TForm3') then begin
    Form3 := TForm3.Create(Self);
    Form3.Show;
  end;

Lo propio aquí, no sé porque razón me sale un error RAISED, pero cuando cambio a (nil) ya no existe ese error.

[Deiv]

Bueno sobre mi pregunta 2 la solución estaba con SHOWMODAL, así mismo este me sirve para mi pregunta 1 ya que no le da acceso al Form principal y pulsar n-veces el Boton para crear n-Forms.
En lo que intentaba resolver esta situación gracias a vuestros consejos, me ha ocurrido algo interesante, del cual me quedó una duda con lo siguiente, verán con el código de abajo, no le he dado evento al BitBtn, pero no sé por qué razón cuando clicko al BitBtn, este me cierra el 2do Form creado en tiempo de ejecución, ¿Es que acaso tiene algún Evento DEFAULT el BitBtn que realiza esa operación?
Y otra cosa interesante, si cambio en el: procedure TForm1.Button1Click, la línea NuevoForm.showmodal; por NuevoForm.Show; ya no ocurre esa situación de que el BitBtn cierra el 2do Form.

Código Delphi [-]
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ClickBoton2(Sender: TObject);
  private
    NuevoForm: TForm;
    NuevoBoton: TBitBtn;
    NuevoBoton2: TButton;
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
   NuevoForm := TForm.Create(nil);
   NuevoForm.Parent := nil;
   NuevoForm.Caption:='Nuevo Formulario';
   NuevoForm.Name := 'MiForm';
   NuevoForm.FormStyle:= fsStayOnTop;
   NuevoBoton := TBitBtn.Create(NuevoForm);
   NuevoBoton.Parent := NuevoForm;
   NuevoBoton.Name := 'Boton1';
   NuevoBoton.Kind:=bkIgnore;
   NuevoBoton.Caption:='Púlsame';
   NuevoForm.showmodal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
   NuevoForm := TForm.Create(nil);
   NuevoForm.Parent := nil;
   NuevoForm.Caption:='Nuevo Formulario';
   NuevoForm.Name := 'MiForm';
   NuevoForm.FormStyle:= fsStayOnTop;
   NuevoBoton2 := TButton.Create(NuevoForm);
   NuevoBoton2.Parent := NuevoForm;
   NuevoBoton2.Caption:='Clickme';
   NuevoBoton2.Name := 'Boton2';
   NuevoBoton2.OnClick:=ClickBoton2;
   NuevoForm.showmodal;
end;
procedure TForm1.ClickBoton2(Sender: TObject);
begin
  NuevoBoton2.Caption := 'Pressed';
end;
end.

¿Alguien sabe a que se debe ello?
Adjunto el Ejemplo

[dec]

Hola,

Empezado por deiv

(...) no le he dado evento al BitBtn, pero no sé por qué razón cuando clicko al BitBtn, este me cierra el 2do Form creado en tiempo de ejecución, ¿Es que acaso tiene algún Evento DEFAULT el BitBtn que realiza esa operación?

Y otra cosa interesante, si cambio en el: procedure TForm1.Button1Click, la línea NuevoForm.showmodal; por NuevoForm.Show; ya no ocurre esa situación de que el BitBtn cierra el 2do Form.

Lo que ocurre es que los botones tienen una propiedad de nombre "ModalResult", que, entra en juego cuando los botones están en formularios "modales". Así, sin necesidad de codificar nada (en el evento "onclick" de los botones), al pulsar un botón el "ModalResult" del formulario toma el valor de la propiedad del mismo nombre que se encuentra en los botones: "mrOK", "mrCancel", etc.

[Sinaloense]

Saludos, aqui hay una solucion:

Primero:
En la forma que creas al presionar el botón en el evento onClose pon entas línea:

   Action := caFree;

de esta manera cada vez que cierres la forma se liberará sola sin invocar el destructor free.

Ahora necesitas una función que te diga si la forma que quieres crear ya está creada, pudes usar esta:

function TForm2.existe_forma(AClase: string): Boolean;
var
 i:Integer;
begin
  for i := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].ClassName = AClase then
      Result := True
    else
      Result := false;
end;

Ahora en el botón que crea la forma puedes poner este código, yo estoy creando la forma 'Form3':

 if not existe_forma('TForm3') then begin
    Form3 := TForm3.Create(Self);
    Form3.Show;
  end;

Espero te sirva.