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; 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 tbaccion.imageindex := 0 else 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?