Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Pasar parametros a un form (https://www.clubdelphi.com/foros/showthread.php?t=65363)

emeritos 09-12-2009 11:50:47

Pasar parametros a un form
 
Hola dilferos.

Haber si me explico: Tengo varios from que utilizo en varios programas (clientes, proveedores, articulos etc..) y es un coñazo cada vez que voy a hacer un programa (en tiempo de diseño) tener que modificar un monton de cosas, para adaptarlo a cada programa y mi idea es poder pasarle a parametros a ese from para no tener que modificar muchas cosas. (los parametros serian entre otros, nombre dase de dato, nombre de la conexion, clave dase dato etc..).
Para más informacion yo llamo a los from de esta manera:

Application.CreateForm(Tfrmarticulos, frmarticulos);
frmarticulos.ShowModal;
frmarticulos.Free;


Gracias.

Aleca 09-12-2009 12:01:20

podes crearte una clase q lleve todas las opciones q queres, entonces en cada proyecto cambias los datos para ese proyecto.
Código Delphi [-]
  ...
  TProyecto = class
  private
    ...
  public
  var
    cName: String;            //Nombre del Sistema
....

:)

Neftali [Germán.Estévez] 09-12-2009 12:49:12

Yo definiría propiedades en la clase de form.

Código Delphi [-]
  Tfrmarticulos = class
  private
    ...
  public
    property Param1:string ...
    property Nombre:string ...
    property Clave:string ...
    property Connexion:...

Y para hacer la llamada:

Código Delphi [-]
Application.CreateForm(Tfrmarticulos, frmarticulos);
try
 frmarticulos.Nombre := 'nombre del form...';
 frmarticulos.Clave := 'Key';
 ...
 frmarticulos.ShowModal;
finally 
 frmarticulos.Free;    
end;

cloayza 09-12-2009 19:05:32

Cuando lei el titulo del hilo "Pasar parametros a un from" pense que se trataba de una sentencia SQL...:confused::confused::confused:


La franja horaria es GMT +2. Ahora son las 07:20:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi