Ver Mensaje Individual
  #7  
Antiguo 10-03-2005
maguib maguib is offline
Registrado
 
Registrado: mar 2005
Ubicación: México
Posts: 9
Reputación: 0
maguib Va por buen camino
Smile Como pasar los datos entre 2 formas

La solución que encontré quizás no es la más óptima pero si funciona... quizás alguien tenga una mejor alternativa, la mía es la siguiente.

--forma que manda llamar a otra forma--
procedure Form1.SpeedButton1Click(Sender: TObject);
var
Form2:TForm2;
begin
Form2:=TForm2.Create(self);--llamado
Form2.ShowModal;--se muestra la forma
SpeedButton2.Click;--se ejecuta el botón cuando la otra forma se cierra
end;

procedure TForm1.SpeedButton2.Click(Sender: TObject);
begin
Edit1.Text:=inttostr(DataModule.nomvble); --asignación del dato
end; --contenido en la vble.

--Asignación del dato en la forma 2a. a la variable global
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
DataModule1.nonvble:=strtoint(Edit1.Text);
end;

DataModule1
(esta es la sección del DataModule
public
{ Public declarations }
//variable para guardar los datos de la Form2)
nomvble:integer;

Quizás son muchos pasos y alguien como mencioné anteriormente sabe una mejor respuesta, pero por lo pronto ya solucioné mi problema que era urgente.

Gracias por la ayuda.
Responder Con Cita