Evento de formulario posterior a onshow

[apicito]

En el form padre creo el formulario, después le asigno valores a una variables públicas y con esas variables publicas, en el onshow hago comprobaciones en la base de datos. El problema es que algunas veces, como consecuencia de esas comprobaciones, me interesa hacer un showmessage y cerrar el formulario, pero no lo consigo ya que en el onshow no funciona el close.

[__cadetill]

Vale, bien..... y no te sería más sencillo hacer las comprovaciones antes de mostrar el formulario (antes del Show)??

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Application);
  try
    // Como el formulario lo tengo creado, puedo acceder a sus variables
    //  públicas y hacer las comprovaciones necesarias en este punto
    //  y si las comprovaciones no me interesan, sencillamente no hago
    // el Show (o ShowModal) de la ventana y me limito a liberarla
    if Comprovaciones then
      Form2.Show;
  finally
    FreeAndNil(Form2);
  end;
end;

Espero te sirva

[apicito]

En la creación del formulario la hago por referencia, ya que se llama muchos formularios distintos y con distintas comprobaciones, entonces las comprobaciones las tengo que hacer en el formulario hijo.

[apicito]

mira el procedimiento de llamada:

  if Sender.ClassType = TToolButton then
    FormaClase:=TExpFormClass(GetClass('TExp'+inttostr((Sender as TToolButton).Tag)))
  else if Sender.ClassType = TMenuItem then
    FormaClase:=TExpFormClass(GetClass('TExp'+inttostr((Sender as TMenuItem).Tag)))
  else
    Exit;
  if FormaClase<>nil then
    begin
      Forma:=FormaClase.Create(Self);
      Forma.codigo:=0;
      Forma.Expte:=QueryDia.fieldbyName('EXPDIA_CODIGO').AsInt64;
      Forma.Modo:='A';
      Forma.Part:=Part;
      Forma.Tipo:='EXP'+Part+QueryDia.fieldbyName('EXPDIA_TIPO').AsString;
      Forma.ExpAno:=EAno.Text;
      Forma.ExpNum:=ENumero.Text;
      Forma.Idioma:=Idioma;
      Forma.Dni:=EDni.Text;
      Forma.DniDup:=EDniDup.Text;
      Forma.ShowModal;

[__cadetill]

Bien, si es así, podrías mirar de usar un truquillo con el evento OnActivate

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  // Si las comprovaciones me hacen cerrar el formulario, pos se cierro
  if comprovaciones then
    Close;

  // Sólo quiero que se lance una vez este evento, así que quito el OnActivate
  OnActivate := nil;
end;

A ver ahora que tal

[apicito]

Gracias 1000.

[marto]

Wop!

Aunque el truco que te comenta Cadetill funciona a las 100 maravillas, aquí te dejo otra manera de hacerlo. Para mi es mejor, porque se usa un método explícito de la clase en lugar del evento OnActivate. Cuando busques en el proyecto tras dos años, te será mucho más fácil de seguir.
La ides es definir una interfaz que contenga un solo método:

Código Delphi [-]
type IValidaForm = interface
  function Valida: Boolean;
end;

El form que queremos que pueda "autovalidarse" antes de mostrarse, lo declaramos implementando la interfaz:

Código Delphi [-]
type TForm1 = class(TForm, IValidaForm)
...
  public Valida: Boolean;
..
end;

implementation

public TForm1.Valida: Boolean;
begin
  Result := MisCondiciones;
end;

Ahora solo nos queda controlar la validación desde el form "padre":

Código Delphi [-]
procedure TFormPadre.MuestraHijo;
begin
  with TForm1.Create(Self) do
  begin
    try
      if Valida then
        ShowModal;
    finally
      Free;
    end;
  end;
end;

Esto mismo lo podrías hacer sin interfaz, simplemente creando el método Valida en el form. La potencia que te da este mecanismo aparece cuando necesitas que varios forms tengan este comportamiento y no necesariamente tenga que derivar de una misma clase. Puedes crear un procedimiento para crear los forms:

Código Delphi [-]
function CreateValidaForm(FormClass: TFormClass): TForm;
var
  IForm: IValidaForm;
begin
  Result := FormClass.Create(Self);
  if Succeded(Result.QueryInterface(IValidaForm, IForm) and 
   IForm.Valida then
     Result.ShowModal
  else
    FreeAndNil(Result);   
end;