![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
por favor necesito ayuda con unos formularios...
Hola a todos, gracias por su tiempo... a ver si me puedo explicar...
Tengo un form1 (principal) del cual llamo a un Form2 y este a su vez llama a un form3, form2 y form3 están disponibles (no los creo al arrancar), los creo en tiempo de ejecución, lo que necesito es poder pasar datos del Form3 al form2 (algo que parece sencillo) pero cuando trato de hacerlo me manda error. |
#2
|
||||
|
||||
podrias decir que error te manda?
sin ese dato se pone complicado que alguien te pueda ayudar.....
__________________
Dulce Regalo que Satanas manda para mi..... |
#3
|
||||
|
||||
No sólo el error, sino la manera en que intenta pasar los datos. Así sin más, es casi imposible.
// Saludos |
#4
|
||||
|
||||
gracias por sus respuestas claro que pena: el error que manda es Access Violation y trato es simplemente de mandar los datos que Tiene un DBGrid (que está en Form3) a unos Edit's (que están en Form2), la cuestión es que estos 2 formularios los creo en tiempo de ejecucion: con F:= TForm2.create(self) ya saben...
|
#5
|
||||
|
||||
eso no tiene nada que ver
creo que deberias colocar mas codigo.. de como lo estas haciendo... donde lo invocas... como pasas los datos etc.. para poder entenderlo mejor
__________________
Dulce Regalo que Satanas manda para mi..... |
#6
|
||||
|
||||
Bueno lo que hago es lo siguiente:
En Form1... implementation Uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var f: TForm2; begin F:= TForm2.create(self); try F.Showmodal; finally f.free; end; end; En formulario 2:... implementation uses unit3; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); var f: TForm3; begin F:= TForm3.create(self); try F.Showmodal; finally f.free; end; end; Y en el formulario 3 implementation Uses Unit1, Unit2; {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); begin form1.Edit1.Text:= edit1.Text; form1.Edit2.Text:= edit2.Text; form2.Edit1.Text:= edit1.Text; form2.Edit2.Text:= edit2.Text; end; y me manda el siguiente error: Access Violation |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Necesito ayuda por favor, no entiendo algo.... | MaxiDucoli | OOP | 1 | 17-05-2010 04:09:36 |
Necesito ayuda para recuperar unos archivos | ddd_ddd | Varios | 2 | 24-10-2007 15:49:26 |
Necesito unos componentes. | lotos8ar | OOP | 2 | 21-09-2005 22:07:40 |
necesito ayuda por favor | haffo | Varios | 3 | 09-10-2003 21:28:52 |
![]() |
|