Ver Mensaje Individual
  #1  
Antiguo 26-04-2011
yevabas yevabas is offline
Miembro
NULL
 
Registrado: nov 2010
Posts: 42
Reputación: 0
yevabas Va por buen camino
Exclamation Pasar dato variable de un form a otro..

Buenos dias

Perdon si esto ya se ha repetido varias veces, he revisado los hilos que aparecen al respecto pero la verdad no me funciona y soy muy novato en esto, lo que quiero es lo siguiente

tengo un formulario principal Form1 y desde alli con Speedbutton llamo otro formulario, nunca e suna variable para indicar el boton presionado ya que hay 3.

Código Delphi [-]
procedure TForm1.LD1Click(Sender: TObject);
begin
  nunca:=1;
  with TLisDDI.Create(Application) do
    try
      ShowModal;
    finally
      Free;
    end;
end;

este me llam un formulario donde tengo un dbgrid y con doble click sobre una de sus celdas llamo otro formulario.

Código Delphi [-]
procedure TLisDDI.Gddi1DblClick(Sender: TObject);
begin
   with TLlamInter.Create(Application) do
    try
      ShowModal;
    finally
      Free;
    end;
   Close;
end;


en este otro formulario lo que hago es que llevo el dato de una de las celdas
y calculo un valor con un boton (speedbutton) dependiendo de un factor que se agrega y despues cierro todo.


Código Delphi [-]
procedure TLlamInter.btn1Click(Sender: TObject);
begin
    fac := StrToInt(cbb1.Text);
    MinVal :=  StrToFloat(edt3.Text) * fac;
    edt2.Text := IntToStr(Round(MinVal));
    if  Form1.nunca = 1 then
       mv1 := StrToInt(edt2.Text);
     if  Form1.nunca = 2 then
         mv2 := StrToInt(edt2.Text);
       if  Form1.nunca = 3 then
           mv3 := StrToInt(edt2.Text);
end;

lo que quiero es poder llevar este valor que es mv1, mv2 o mv3 segun sea el caso al Form1 y guardarlo en otra variable de este formulario.

espero haber sido mas o menos claro y de nuevo disculpas si ya se trato el tema pero la verdad no he podido hacerlo y no comprendo muy bien esto, gracias por cualquier colaboración.
Responder Con Cita