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.
|