Pasarle un parameto al With ...???

[ingel]

Hola ... despues de hoy prometo no escribir por unos dias ...

Segun una var creo un form u otro y tengo un with que es igual para los 2
como se lo indico?

if lApaisada then Application.CreateForm(TFImpOcapa, FImpOcApa)
else Application.CreateForm(TFImpOc, FImpOc);

with FImpOcapa do begin
( o FImpOc )
....
end;

puedo hacer un procedimiento que reciba un form y escribir dentro lo del with o hay algo mas simple ...?

Gracias mil

[marto]

var
  Frm: TForm;
begin
  if lApaisada then 
    Frm :=TFImpOcapa.Create(Application)
  else
    Frm :=TFImpOc.Create(Application)

  with Frm do 
  begin 
    ....
  end;

Bienvenido al Polimorfismo

P.D: Dentro del with solo puedes usar propiedades / métodos de TForm, sinó, no te compilará. Si quieres usa lo de los dos forms que sean comunes tendrías que hacer que ambos heredasen de uno comun en el que se implementen esas propiedades / métodos.

[marto]

Ingel, me has contestado via e-mail. Ante esto te he decir 2 cosas:

1.- Lee la guia de estilo (tienes el link en mi firma) y verás por qué no tienes que hacer eso

2.- Si me envias un e-mail pero en un tu perfil tienes deshabilitada la opción de recibir mensajes.... ¿como se supone que te tengo que contestar?

Reproduce aquí tus dudas y yo o cualquier otro compaañero que sepa cómo te ayudaremos con mucho gusto.

[ingel]

como no he respondido ningun mensaje , no sabia como hacerlo .. y lei la guia de estilo despues de enviarte el email ... disculpas nuevamente...
El problema es que al hacerlo como me indicaste ...

Frm: TForm;
begin

if lApaisada then
Frm :=TFImpOcapa.Create(Application)
else
Frm :=TFImpOc.Create(Application);

with Frm do begin

QRParam.Caption := EProveedor.text;
QREntEstimada.Caption := EFechaEstimada.Text;
....
end:

me dice que no reconoce QRParam ...(undeclared identifier) la primera instrucccion del with ...
probe poner a frm del tipo TFImpOcapa y paso bien ...pero no seria solucion ..verdad porque tambien necesito que sea TFImpoc ....

Gracias ...

[jachguate]

Ya el amigo marto te ha explicado que solamente podes utilizar métodos y propiedades del TForm. QRParam, no es una propiedad del TForm y por tanto el código no compilará. Repitiendo:

Bienvenido al Polimorfismo

P.D: Dentro del with solo puedes usar propiedades / métodos de TForm, sinó, no te compilará. Si quieres usa lo de los dos forms que sean comunes tendrías que hacer que ambos heredasen de uno comun en el que se implementen esas propiedades / métodos.

Hasta luego.