Problema al pasar datos entre 2 formas

[maguib]

Hola, tengo un problema con mi aplicación, estoy tratando de pasar los datos de una forma a otra pero me marca un error de violación de dirección.

Una de las formas se crea al momento de llamarla desde un menú, y cuando estoy en dicha forma mando llamar otra que ya se autocreó desde que se carga el sistema, el problema es que cuando ya selecciono los datos y los quier pasar a la forma primera me marca ese error.

Agradezco de antemano la ayuda recibida.

Gracias.

[marcoszorrilla]

El error es típico de una llamada a un componente que no existe o que aún no ha sido creado, pero tendrías que poner el código que utilizas para ver si te podemos ayudar.

Un Saludo.

[maguib]

Hola, muchas gracias por responderme y con mucho gusto aquí está el código:

procedure TFFacturacion.SpeedButton1Click(Sender: TObject);
var
FBusquedas:TFBusquedas;
begin
FBusquedas:=TFBusquedas.Create(self);
FBusquedas.ShowModal;
end;

Es el código de la primera forma en donde se manda llamar a la otra de donde se supone voy a extraer los datos.

En la siguiente forma a través de un botón voy a regresar los datos.

procedure TFBusquedas.SpeedButton1Click(Sender: TObject);
begin
FFacturacion.Edit1.Text:=DBGrid1.Fields[1].Text; -- Aquí marca error--
close;
end;

Al momento de hacer esto la forma no se cierra, se queda activa después de mandar el mensaje y tampoco me asigna los datos al objeto de la forma anterior.

Gracias por tu ayuda.

[marcoszorrilla]

Mira este ejemplo que funciona sin problemas, adáptalo a tus necesidades, como ves he hecho un "Use", del otro Formulario.

Código Delphi [-]
  private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 uses Unit2;
 
 {$R *.DFM}
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 Edit1.Text:=Form2.DBGrid1.Fields[1].Text;
 end;

Un Saludo.

[maguib]

Hola nuevamente, muchísimas gracias por la ayuda.

Lo que tu me pasaste me ayudó a encontrar otra solución que funcionó.

Saludos

[marcoszorrilla]

Sería conveniente que nos dijeras cuál fue la solución que finalmente aplicaste, ten en cuenta que este hilo lo han podido leer mucha más gente y se quedará con la duda de cual fue la solución que se aplicó.

Un Saludo.

[maguib]

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.