[drykea]

Hola a tod@s

Tengo un problema con un form.
Tengo un form MDIChild que llamo desde distintos sitios. Para distinguir desde donde lo llamo utilizo la propiedad tag del form, asignandole un valor distinto segun llamo al form.

Lo hago así:

Código Delphi [-]
Application.CreateForm(TfSalidas,fSalidas);
    with fSalidas do
      try
        tag:=1;  //Llamado desde form1
        show
      finally
    end;

Luego consulto el valor de la propidad tag y segun sea cambio los iconos de los botones (uso una toolbar) con el siguiente código:

Código Delphi [-]
if fSalidas.tag=0 then //llamado desde form2
    tbaccion.imageindex := 0  //tbaccion es el nombre del boton que quiero cambiar
  else                     //llamado desde form1
    tbaccion.imageindex := 2;

El problema es que ponga donde ponga este código no funciona, siempre me entra en la primera parte del if sin haber cambiado el valor del tag.

He probado en los eventos OnCreate, OnActivate y Onshow (Yo creo que tiene que ir aquí) pero no funciona en ninguno. Primero se ejecutan los eventos y luego se asigna el valor de la propiedad tag, por lo que no se me ejecuta bien el código.

¿Alguna sugerencia?