FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Creación dinamica de Formularios
Hola a todos
Hace tiempo pregunte sobre la creación dinamica de formularios teniendo el nombre del formulario como un String ya que dichos nombres estaban en mi base de datos, me hicieron una referencia a este hilo donde explica Roman muy bien sobre las referencias de clase que soluciono mi problema y al que doy muchas gracias por ello http://www.clubdelphi.com/foros/showthread.php?t=2656 durante todo este tiempo solo necesite llamar una forma por opción que cargo en mi menu, pero ahora necesito llamar a 2, primero llamar de mi menu de opciones a la primera forma digamos Form2 y de esta llamar a otra Form4 en la cual hago operaciones y el resultado volverlo a pasar a Form2 como ven las 2 ya estan creadas pero en el momento de pasar de Form4 a Form2 me sale un error de access violation es como si no estuviera creada Form2 pero esta ahi. Les pongo un pequeño ejemplo para que lo entiendan mejor. Utilizo delphi7 Ayudenme por favor, se los agradece un monton.
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. Última edición por Caro fecha: 24-01-2006 a las 15:09:30. |
#2
|
||||
|
||||
El fallo que te está ocurriendo es el siguiente:
Estás usando una factoría de Formularios a los cuales añades el nombre de la referencia de clase (en tu ejemplo, TForm2); cuando haces click y creas un formulario a partir de la referencia de clase tienes un formulario de tipo "TForm2" (que en realidad, es un puntero a un objeto de tipo formulario); sin embargo, al llamar al formulario 4, le pones estas líneas: Código:
IF edit1.Text<>'' THEN begin form2.Edit1.Text:=edit1.Text; // <<<<< ¿Form2? Yo lo que haría en TForm4 es lo siguiente: Código:
procedure TForm4.Button1Click(Sender: TObject); begin IF edit1.Text = '' THEN showmessage('Debe llenar la caja'); else close; end; Código:
procedure TForm2.Button1Click(Sender: TObject); begin Application.CreateForm(Tform4,form4); try form4.ShowModal; self.Edit1.Text := Form4.Edit1.Text; finally form4.Free; end; end; Un saludo |
#3
|
||||
|
||||
Me quedo todo claro, mil gracias
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
generación dinámica de formularios por xsd | samame | .NET | 0 | 05-01-2006 16:20:43 |
creación de forms dinámica | dandia28 | OOP | 2 | 30-12-2005 17:18:34 |
creación dinámica de componentes | Mariana | Varios | 1 | 20-09-2005 17:07:07 |
Creacion dinamica menu | morfeo21 | Varios | 1 | 30-04-2004 17:33:14 |
Proyecto con estructura dinámica (creación de botones) | CORBATIN | Conexión con bases de datos | 12 | 26-04-2004 14:41:30 |
|