Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Como pasar parametros de una forma hija a otra forma hija (https://www.clubdelphi.com/foros/showthread.php?t=3650)

luisreg 15-09-2003 20:02:21

Como pasar parametros de una forma hija a otra forma hija
 
Hola amigos

Necesito de su ayuda estoy tratando de pasar el valor de un dato que captura en un edit de una forma hija (form2) y este dato lo quiero pasar a otra forma hija (form3) , esta forma la manda llamar a traves de un actionlist cuando presiono la tecla de funcion F3, en la accion tengo capturado lo siguiente para llamar la nueva forma

Tform3.Create(application);

en la forma hija (form3) el dato que quiero obtener de la forma hija (form2) lo necesito para ejecutar una consulta atraves de un query, el query lo tengo en un datamodule y lo llamo de la form3 mediante un boton de esta forma:

procedure Tform3.aceptarClick(Sender: TObject);
begin
DMRegla.qryActualiza.Close; DMRegla.qryActualiza.Params[0].AsInteger:=StrToInt(edit1.Text);
DMRegla.qryActualiza.Open;
end;

en el edit de la form3 es donde quiero poner el valor que obtenga de la form2 pero no he podido lograr que me aparezca el dato en el edit de la form3

si alguien me puede ayudar o a mejorar esta consulta se lo agradecere mucho.

jhonny 15-09-2003 20:15:21

desde la Form2 Haces lo siguiente:

Bueno, segun lo que entendi, deseas que el valor de un edit en la forma 2 se pase a otro de la forma 3 y ejecutar el Query pasandole como parametro el valor del edit que tenes en la forma 3...

Seria algo asi:

Código:

Form3 := TForm3.Create(self);
Form3.Edit1 := form2.edit1;
//Y si quieres ejecutar el procedimiento del boton seria asi:
Form3.BotonClick(sender);

Esto suponiendo que estas trabajando MDI.

espero te sirva

;)

__cadetill 16-09-2003 00:29:10

Otra opcion y, aprovechando que lanzas la Query desde un DataModule, es crear una variable de tipo string publica en este DataModule y informarla desde Form2 (en el OnChage del Edit por ejemplo).
Luego sólo tienes que capturar dicho valor desde el propio DataModule.
Eso sí, verifica la variable antes de pasarla como parámetro a la Query para que tenga algún valor válido.

Para la inicialización de la variable, puedes utilizar la creación del propio DataModule

Espero te sirva

luisreg 17-09-2003 18:18:50

Hola perdon por la demora en contestar pero es que estuve viendo otras cosillas para mi proyecto.

jhonny si estoy trabajando con MDI lo hice como me muestras el ejemplo pero me manda un error de acceso de violacion cuando trato de pasar el valor no se a que se debe el error pero me interesa hacer que funcione de esta manera.

lo hice con la opcion de cadetill y asi si me funciona, y ademas te doy gracias cadetill por la ayuda que me has dado en otras ocasiones.

gracias por su ayuda a ambos.

saludos.


La franja horaria es GMT +2. Ahora son las 08:46:50.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi