Foros Club Delphi - Pasar parametros a un Form

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Pasar parametros a un Form (https://www.clubdelphi.com/foros/showthread.php?t=9057)

mateamargo

13-04-2004 13:25:16

Pasar parametros a un Form

Hola,
Tengo un form principal tipo menu, cuando ejecuto una opcion del mismo
hago lo siguiente:

Código:

form1.showmodal

quisiera pasarle parametros a este form1.
No pude entrar a la busqueda en el historico del foro porque la pagina me da error.
Y no quiero que sean parametros a pasar desde la linea de comandos para lo cual usaria :

Código:

paramstr[1],paramstr[2],etc

Desde ya muchas gracias
Claudio

Lepe	13-04-2004 14:19:22

En Form1 create un procedimiento que sea publico con los parámetros que necesites, y despues puedes llamarlo desde el form principal:

Código:



public

   procedure PasaParametros(const a:string; b:integer);



end;



implementation



Procedure Tform1.PasaParamatros(const a:string; b:integer);

begin

....

end;

Por supuesto tu serás el responsable de llamar a esta funcion despues de crear el Form1.

Espero te sirva. Saludos

__cadetill

13-04-2004 16:04:05

Otra opción sería redefiniendo el constructor de ese formulario o bien creando un segundo constructor

Código:

public

    constructor Create2(Aowner : TComponent; MisParametros: XXXX);



implementation



constructor TMiForm.Create2(Aowner : TComponent; MisParametros: XXXX);

begin

  // llamamos al create principal de la classe TForm

  inherited Create(Aowner);



  // Aquí podemos asignar esos parámetros a variables de la unit por ejemplo

end;

mateamargo

13-04-2004 18:42:56

Pasaje de parametros al form

Hola,
Te agradezco tu respuesta, yo ya la habia probado, el tema es que
cuando llamo al formulario

Código:

form1.showmodal

verifique en el create del formulario el parametro venia ok, pero en el activate del mismo me desaparecia el parametro, justamente en el activate yo queria ejecutar una compactacion de una base de datos pasada como parametro.
Tampoco tenía forma de cerrar el formulario.
Muchas Gracias
Claudio

__cadetill

13-04-2004 19:07:23

A cual de las dos opciones te refieres, a la de Lepe o la mia?

En cualquiera de los casos.... has probado a debugear y ver donde pierde el valor la variable?

mateamargo

14-04-2004 09:34:08

Pasar parametros a un Form

Hola, :)
Lo probe con tu solucion (cadetil) y al debugear se pierde la variable en el evento activate del form.
Saludos

__cadetill

14-04-2004 10:49:43

supongo que tendrás algo así

En negrita los cambios al ejemplo anterior

Código:

private

  MiVar1: string;

  MiVar2: string;

public

    constructor Create2(Aowner : TComponent; Var1, Var2: string);



implementation



constructor TMiForm.Create2(Aowner : TComponent; Var1, Var2: string);

begin

  // llamamos al create principal de la classe TForm

  inherited Create(Aowner);



  // Aquí podemos asignar esos parámetros a variables de la unit por ejemplo

  MiVar1 := Var1;

  MiVar2 := Var2;

end;

Con ésto no has de perder el valor de las variables a no ser que, desde algún lado, lo cambies tu explícitamente.

Fíjate en el detalle de que las variables son Privadas. Qué ganamos? Pues que, por descuido no modifiquemos el valor desde fuera de la Unit. Así que, si sigues perdiendo el valor en el OnActivate, sólo tendrás que buscar dentro de esta Unit a ver dónde asignas valores a estas variables ;)

Espero te sirva

La franja horaria es GMT +2. Ahora son las 04:16:18.