Dudas Crear Objetos en Tiempo de Ejecución

[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.

[Deiv]

¿Y cómo desactivo esa opción? o necesariamente debo quedarme con esa opción de "evento default", o necesariamente debo darle otro evento? para que me deje de funcionar como lo ha hecho hasta el momento?

[salvica]

Hola Deiv

Empezado por Deiv

¿Y cómo desactivo esa opción? o necesariamente debo quedarme con esa opción de "evento default", o necesariamente debo darle otro evento? para que me deje de funcionar como lo ha hecho hasta el momento?

Los botones tienen la propiedad ModalResult que devuelven la respuesta de la ventana modal. Para evitar que interactúen con la ventana pon dicha propiedad a mrNone y luego en el evento OnClick del botón la modificas según tus necesidades.

Por ejemplo:
Un form Form1 que abre una ventana modal mediante un botón Button_CREAR_VENTANA

Código Delphi [-]
procedure TForm1.BitBtn_CREAR_VENTANA_OnClick(Sender: TObject);
var
  Respuesta : TModalResult; //---> para recoger la respuesta de la ventana modal
begin
{ Crear la ventana modal al pulsar el botón }
  Application.CreateForm(TForm2, Form2);
  with Form2 do begin
     { mostramos Form2 y obtenemos la respuesta }
       Respuesta := ShowModal;
     { eliminamos el Form 2}
       Free;
  end;
{ comprobamos que botón se pulsó en la ventana modal }
  if( Respuesta=mrOk ) then begin
    { se pulsó en botón ACEPTAR }
  end else begin
    { se pulsó en botón CANCELAR }
  end;
end;

La ventana modal tiene dos botones:
Button_ACEPTAR que devuelve mrOk o mrYes para aceptar
Button_CANCELAR que devuelve mrCancel para cancelar las entradas

En el evento OnCreate de la ventana modal, modificamos las salidas de los botones:

Código Delphi [-]
procedure TForm2.Form2_OnCreate(Sender: TObject);
begin
{
  modificar el botón de cancelación de resultados
  ===============================================
  generalmente, este resultado no se toca ya que no se desea hacer nada
  al pulsar la tecla "ESC", pero como ejemplo vale.
}
  Button_CANCELAR.ModalResult := mrNone;

{
  modificar el botón de validación de resultados
  ===============================================
}
  Button_ACEPTAR.ModalResult  := mrNone;
end;

El evento del botón para cancelar la salida (al pulsar la tecla "ESC")

Código Delphi [-]
procedure TForm2.Form2_Button_CANCELAR_OnClik(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

El evento del botón para validar la salida

Código Delphi [-]
procedure TForm2.Form2_Button_ACEPTAR_OnClik(Sender: TObject);
begin
{ aquí puede ir una validación de las entradas }

{ devolver el resultado}
  ModalResult := mrOk;
end;

Saludos
Salvica

[Deiv]

Gracias,
Muy buena explicación me quedo mucho más claro
Saludos
Deiv