argumentos FormCreate

[senda]

¿Se puede pasar argumentos a este procedimiento tan especial?

La operación tiene esta cabecera:

Código Delphi [-]
procedure FormCreate(Sender: TObject; lista: TLista);

Y la llamo como sigue:

Código Delphi [-]
For:=TFor.Create(For,list);

[jachguate]

Para que la asignación de la segunda sentencia que presentás sea válida, la primera debiera tener un constructor y no un método cualquiera. Por ejemplo:

Código Delphi [-]
type
  TFor = class(TForm)
    ...
  public
    constructor Create(AOwner: TComponent; Lista: TList);
...

procedure TMainForm.Button10Click(Sender: TObject);
begin
  For := TFor.Create(Self, Lista);
end;

Esto sería perfectamente válido, solamente tener cuidado de en el constructor de la clase debe llamarse a algún constructor de la clase padre, para que la creación e inicialización de, en este caso, la forma se realice correctamente.

También tener en cuenta que el constructor create declarado en este caso no sustituye al constructor create de la clase TForm, aun cuando tenga el mismo nombre, por lo que por ejemplo, una llamada a Application.CreateForm, seguirá usando el constructor create de TForm y no el create de TFor.

Hasta luego.

[roman]

Aunque no es fundamental, para que el compilador no nos grite con sus advertencias, yo usaría la directiva reintroduce:

Código Delphi [-]
  TFor = class(TForm)
    ...
  public
    constructor Create(AOwner: TComponent; Lista: TList); reintroduce;

...

Por cierto, con For, esto no va a compilar

// Saludos

[jachguate]

Empezado por roman

Por cierto, con For, esto no va a compilar

¡Es cierto!, no había caido en la cuenta de ello.

Probemos...

c/For/AFor

Ok. ahora compilará..

Hasta luego.

[roman]

Empezado por jachguate

c/For/AFor

¿Qué es esto? ¿vi?

// Saludos

[jachguate]

ups... :s lo siento:

[alt][s] [r] For [tab] AFor [alt][a] [Intro]



Hasta luego.

[senda]

Muchas gracias jachguate creo q con tu ejemplo servirá.

[senda]

Empezado por roman

Aunque no es fundamental, para que el compilador no nos grite con sus advertencias, yo usaría la directiva reintroduce:

¿Para que sirve esa instrucción reintroduce?

[senda]

He cambiado todas las operaciones que tenía en la operación FormCreate a la nueva operación (q he introducido) Create. El resultado no ha sido el esperado. Se cuelga al ejecutar la operación ShowModal tras crear el formulario.

Empezado por jachguate

Esto sería perfectamente válido, solamente tener cuidado de en el constructor de la clase debe llamarse a algún constructor de la clase padre, para que la creación e inicialización de, en este caso, la forma se realice correctamente.

No sé exactamente como implementar esta idea.

[Ñuño Martínez]

Empezado por senda

¿Para que sirve esa instrucción reintroduce?

Tiene que ver con la herencia. Sirve para "reintroducir" un método virtual como nuevo. Intentaré aclararlo con un ejemplo (a ver si me sale, que lo estoy haciendo de memorieta):

Código Delphi [-]
TYPE
  TBASE = CLASS (TOBJECT)
  PUBLIC
    PROCEDURE Procedimiento; VIRTUAL;
  END;

  TDERIVADA1 = CLASS (TBASE)
  PUBLIC
    PROCEDURE Procedimiento; OVERRIDE;
  END;

  TDERIVADA2 = CLASS (TBASE)
  PUBLIC
    PROCEDURE Procedimiento; REINTRODUCE;
  END;

Tenemos el método virtual Procedimiento, el cual es heredado por las dos clases derivadas. Una de ellas la implementa de nuevo (OVERRIDE) mientras que la otra la "reintroduce" de forma que tiene dos métodos con el nombre "Procedimiento". No es lo mismo que OVERLOAD, ojo.

La cosa está en lo siguiente:

Código Delphi [-]
PROCEDURE Uso (aObjeto1: TBASE, aObjeto2: TDERIVADA2);
BEGIN
  aObjeto1.Procedimiento;
  aObjeto2.Procedimiento;
END;

VAR
  ElObjeto: TDERIVADA2;
BEGIN
  ElObjeto = TDERIVADA2.Create;
  Uso (ElObjeto, ElObjeto);
  ElObjeto.Free;
END

En la primera línea llamamos al procedimiento virtual de la clase TBASE, que en tiempo de ejecución puede ser tanto la definida para TBASE como la definida para TDERIVADA1.

En la segunda línea llamamos al procedimiento "reintroducido" por la clase TDERIVADA2.

Espero que haya aclarado las cosas en lugar de liarlas más.

[jachguate]

Empezado por senda

Se cuelga al ejecutar la operación ShowModal tras crear el formulario.

Me parece que no has llegado tan dentro como sería necesario para figurarme que puede pasar con esto, así que te recomiendo intentar llegar mas allá, bien lanzando el showmodal con f7 (step into) o bien poniendo breakpoints en el código que debe ejecutarse en el código que se lanza en ese intervalo.

Para demostrar que es posible, he preparado un pequeño ejemplo, espero te sea de utilidad.

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm2 = class(TForm)
    lDato: TLabel;
    BitBtn1: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; Dato: string); reintroduce;
  end;

implementation

{$R *.dfm}

{ TForm2 }

constructor TForm2.Create(AOwner: TComponent; Dato: string);
begin
  inherited Create(AOwner);
  lDato.Caption := Dato;
end;

end.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  f2: TForm2;
begin
  f2 := TForm2.Create(Application, (Sender as TButton).Caption);
  try
    f2.ShowModal;
  finally
    f2.Free;
  end;
end;

end.

El evento OnClick de ambos botones está relacionado al método Button1Click.

Creo que el dfm puede deducirse fácilmente de los .pas. ¿no?

Hasta luego.

[senda]

Muchas gracias. He conseguido ejecutar tu ejemplo perfectamente, pero no consigo arreglar mi programa. Exactamente me escupe:

Project ej.exe raised exception class EInvalidOperation with message 'Cannot make a visible window modal'. Poccess stopped. Use Step or Run to continue.

Parando la ejecución en la instrucción For.Free (se ejecuta inmediatemente despues del Create y ShowModal).

[jachguate]

Creo que el mensaje es claro: Tu ventana ya está visible cuando llamas a ShowModal, y pues esto no tendría sentido.

Evidentemente, es tu propio código el que hace que esta ventana sea visible. Iniciá revisando que el estilo de la forma sea fsNormal, y si es así, pues dar una revisión general de las rutinas que se invocan entre el Create y el ShowModal.

Hasta luego.

[senda]

No se, me parece q lo voy a tirar todo y empezaré de nuevo, xq el estilo es 'fsnormal' y entre el 'create' y el 'showmodal' no hay ninguna operación (se ejecuta el showmodal inmediatamente despues del create). Muchas gasias de todos modos.

PD: Si omito el 'showmodal' no se muestra el formulario y si lo incluyo peta la ejecución, toy apañao.

[[maeyanes]]

Antes de "tirar" todo, verifica la propiedad Visible de tu formulario, si tu ventana no es MDIChild, esta debe tener el valor False.



Saludos...

[jachguate]

Si el formulario es MDIChild, no tendría sentido mostrarlo con ShowModal. La propiedad Style del formulario debiera tener fsNormal.

Hasta luego.

[[maeyanes]]

Si, pero si por algún motivo cambias la propiedad FormStyle a fsMDIChild, la propiedad Visible cambia a True, pero si regresas la propiedad FormStyle a fsNormal, Visible no cambia su valor...

Así que no está de más que verifique lo que comento...



Saludos...

[senda]

La propiedad visible sta a False.

[albertresearch]

He leido rapidamente por encima tu mensaje y creo que tu problema radica en que tienes declarada la form como "autocreada" en la proyecto de delphi. Pulsa CTRL+Mays+F11 y verifica si en el apartado de Auto-create Forms esta este formulario. Si es asi... pasalo al apartado de "available Forms" para que no se cree automaticamente. Doy por sentado que es tu codigo el que crea la form y la muestra modal no ???

[senda]

Empezado por albertresearch

He leido rapidamente por encima tu mensaje y creo que tu problema radica en que tienes declarada la form como "autocreada" en la proyecto de delphi. Pulsa CTRL+Mays+F11 y verifica si en el apartado de Auto-create Forms esta este formulario. Si es asi... pasalo al apartado de "available Forms" para que no se cree automaticamente. Doy por sentado que es tu codigo el que crea la form y la muestra modal no ???

Si.

Al final lo he conseguido resolver haciendo una función auxiliar que inicializase los parámetros antes de llamar a Create y he restaurado la operación Create sin parametros que tenia en un primer momento funcionando. Muchas gracias por todas las respuestas.