Problema al asignar valor antes de visualizar el form

[drykea]

Hola otra vez.

El error me lo da justo al crear el formulario.

Estoy intentando probar lo del owner, pero es una propiedad que no he usado nunca, y estoy a ver si lo consigo.

Por otro lado, pregunta he estado viendo lo del aftershow, pero creo que no lo he entendido bien, no es un evento como tal ¿No?. ¿Tengo que definirlo yo? Podeís aclararme algo más sobre esto.

[Neftali [Germán.Estévez]]

Aquí te paso un ejemplillo, con ambas maneras de hacerlo. Utilizando el evento AfterShow para detectar diferente TAG (con el que se llama) y también poder detectar desde un formulario cual es el Owner de quien lo llama (en este caso dos posibles formularios o Application).
Supongo que el ejemplo será más clarificador.

Empezado por drykea

El error me lo da justo al crear el formulario.
Estoy intentando probar lo del owner, pero es una propiedad que no he usado nunca, y estoy a ver si lo consigo.
Por otro lado, pregunta he estado viendo lo del aftershow, pero creo que no lo he entendido bien, no es un evento como tal ¿No?. ¿Tengo que definirlo yo?
Podeís aclararme algo más sobre esto.

En cuanto a porqué te está fallando lo del owner, sin ver el código es difícil saber qué está pasando. Compáralo con el del ejemplo a ver qué diferencias hay.

El el caso del AfterShow, lo que estamos haciendo en desde el propio Show del formulario (Román utiliza el evento OnShow, a mi me gusta más utilizar el DoShow) lanzar un mensaje a la cola de mensajes de Windows, que capturamos en el propio formulario. Con ese mensaje que capturamos ejecutamos el procedimiento AfterShow.

[drykea]

Gracias, sigo probando ...

[JoAnCa]

Y serviria usando el Sender del objeto que abre el formulario?

[Neftali [Germán.Estévez]]

Empezado por Jose Caceres

Y serviria usando el Sender del objeto que abre el formulario?

Supongo que te refieres al parámetro que llega an OnShow, pero en este caso ese parámetro es el propio formulario, así que creo que no serviría.

[JoAnCa]

Bueno, tal vez no entendi bien la pregunta con lo del llamado de diferentes sitios.
Me imagino que es que lo abres con una opcion de menu o con un boton de una ToolBar
Si es asi, funciona usando el sender

Código Delphi [-]
  Application.CreateForm(TForm2, Form2);
  if Sender = Abrir1 then
    Form2.Label1.Caption:='Me abrieron con el Menu';
  if Sender = ToolButton1 then
    Form2.Label1.Caption:='Me abrieron con un Boton';
  Form2.Show;

En este caso lo hago cambiando el caption de un label, pero puede servir tambien para modificar cualquier objeto del formulario antes que se abra

Si los sitios desde donde mandas a abrir el formulario no son esos, entonces detallame mejor desde donde lo haces.
O donde esta la imagen que quieres cambiar? en form1 o en fSalidas

[*Caro*]

Empezado por Jose Caceres

Bueno, tal vez no entendi bien la pregunta con lo del llamado de diferentes sitios.
Me imagino que es que lo abres con una opcion de menu o con un boton de una ToolBar
Si es asi, funciona usando el sender


Código Delphi [-] Application.CreateForm(TForm2, Form2);
if Sender = Abrir1 then
Form2.Label1.Caption:='Me abrieron con el Menu';
if Sender = ToolButton1 then
Form2.Label1.Caption:='Me abrieron con un Boton';
Form2.Show;



O donde esta la imagen que quieres cambiar? en form1 o en fSalidas

Hola jose, drykea necesita el formulario desde donde a sido llamado fSalidas, ese formulario lo muestra desde diferentes formularios y el quiere saber desde donde ha sido llamado, por eso estaba asignando un valor al Tag de FSalidas según al formulario donde se hace el Show le da un valor, pero no le funcionaba por lo que ya ha comentado Neftali. Se ha dado dos soluciones con el Owner y con el AfterShow.

Sobre tu pregunta, la imagen que quiere cambiar esta en FSalidas que cambia según al formulario que lo llama.

Saluditos

[Neftali [Germán.Estévez]]

Empezado por Jose Caceres

En este caso lo hago cambiando el caption de un label, pero puede servir tambien para modificar cualquier objeto del formulario antes que se abra

El problema es que es ecódigo funciona como se espera con formularios normales. Si en el OnShow del formulario 2 colocas el código:

Código Delphi [-]
MessageDlg('Caption: ' + Form2.Label1.Caption, mtInformation, [mbOK], 0);

Verás que para cada opción aparece un caption diferente. Pero no así si son formularios MDI, ya que el OnShow se ejecuta directamente desde el create antes de poder hacer las asignaciones. Más bien el problema no es asignar los valores, sino en qué eventos "rescatarlos".