Foros Club Delphi - Como paso un parametro a un formulario

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

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

- - Como paso un parametro a un formulario (https://www.clubdelphi.com/foros/showthread.php?t=5314)

FNADALO

17-11-2003 16:43:32

Como paso un parametro a un formulario

Como puedo pasar un parametro a un formulario
concretamente el nombre de una tabla.
Al realizar la llamada al Formulario, lo que quiero pasarle es el nombre de la tabla, para luego en el formulario, por código
pasarle el String correspondiente, y generar un DataSource.

Gracias de Antemano.

__cadetill

17-11-2003 16:49:48

de forma sencilla....

Declara una variable del tipo que quieras (por ejemplo string) en la parte publica del formulario llamado

Código:

public

  Tabla: string;

Y, desde el form llamador, accede a esa variable despues de la creación y antes de la visualización

Código:

procedure ......

begin

  MiForm := TMiForm.Create(Self);

  MiForm.Tabla := 'MiTabla';

  MiForm.ShowModal;

  MiForm.Free;

end;

jachguate

17-11-2003 20:34:57

Si queres introducir efectos colaterales (que al cambiar el valor del parámetro se ejecute algun trozo de código para ajustar otras cosas al nuevo valor) podes valerte de las proiedades.

Con estas, podes tener un método que reciba el nuevo valor del "parámetro" como vos le llamas, e internamente asignarlo a un atributo de tu objeto, y realizar otras acciones, mientras el valor de la propiedad sige asignandose de forma habitual, utilizando el operador :=

Te recomiendo que busques en la ayuda la palabra reservada property que seguro te aclarará bastante.

Hasta luego.

;)

FNADALO

18-11-2003 16:13:19

Tema Resuelto.

Al González

22-11-2003 19:52:02

¡Buen día a todos!

Aquí otra manera de implementarlo:

Código:

TMiForma = Class (TForm)

  ...

private

  { Private declarations }

public

  { Public declarations }



  Procedure Mostrar (Const Tabla :String);

end;

...

Implementation

...

Procedure TMiForma.Mostrar (Const Tabla :String);

Begin

  XCosa := Tabla;  { Uso del parámetro }

  Show;

End;

Código:

...

MiForma.Mostrar ('Productos');

...

Espero esto sea de utilidad. Seguimos en contacto.

Al González :).

La franja horaria es GMT +2. Ahora son las 02:26:17.