argumentos FormCreate

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