Ver Mensaje Individual
  #1  
Antiguo 05-06-2007
Avatar de fedelphi
fedelphi fedelphi is offline
Miembro
 
Registrado: abr 2006
Ubicación: Santa Fe
Posts: 122
Reputación: 21
fedelphi Va por buen camino
variables entre forms

Mi problema es el siguiente, tengo un form principal que se crea con el proyecto al ejecutarse, bien, desde este form creo en tiempo de ejecucion todos los otros forms de la forma
Código Delphi [-]

procedure TFPrincipal.Consultacirc1Click(Sender: TObject);
var
  cons:TFConsultaCirc;
begin
  cons:=TFConsultaCirc.Create(self);
  cons.Show;
end;
cuando cierro el form en el onclose hago la action:=caFree.
Bueno, el problema viene aqui, en este form que creo en tiempo de ejecucion tengo una variable publica para accederla desde otro form que lo muestro como showmodal, de esta forma
Código Delphi [-]
type
  TFConsultaCirc = class(TForm)
    DBGrid1: TDBGrid;
    BEliminar: TButton;
.
.
.

public
    env_devs:integer;
  end;
.
.
.
procedure TFConsultaCirc.BEliminarClick(Sender: TObject);
var
  adv:TFAdvierteBorraCirculante;
begin
adv:=TFAdvierteBorraCirculante.create(self);
if adv.showmodal=mrYES then
      begin
.
.
.
end;

y este es el codigo del form que llamo con showmodal
Código Delphi [-]
 if ECantidad.Text<>''then //este codigo es dentro del form.showmodal
  begin
    FConsultaCirc.env_devs:=strtoint(ECantidad.Text);
    ModalResult:=mrOK;
  end
  else
    showmessage('Ingrese la cantidad de envases');
pero al llegar a la asignacion me da el error 'Access violation ...', ahora mi pregunta; como hago referencia a esta variable del otro form? se que mi problema es por crearlo en tiempo de ejecucion ya que si lo creo cuando se ejecuta la aplicacion hago referencia a ella y listo, pero quiero saber como trabajar con los forms creados de esta manera. Espero haber sido claro, disculpen cualquier error ya estoy un poco perdido y cansado con este rollo.
Gracias
Fede
__________________
De lo que hay no falta nada!!!

Última edición por fedelphi fecha: 05-06-2007 a las 04:34:30.
Responder Con Cita