FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#8
|
|||
|
|||
Hola a todos denuevo, saben ahora necesito pasar del form1 al form2 y no me resulta. se me cae el programa por violacion de acceso de no se que cosa.
recordando. logre gracias a uds. pasar datos desde el form2 al form1(main) y ahora me gustaria poder hacer tambien lo contrario. aqui va el codigo: --------------------------FORM1 (main) unit MainProgramFPv1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, Mask, XPMan; type TForm1 = class(TForm) DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; GroupBox1: TGroupBox; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; DBEdit8: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DBEdit11: TDBEdit; DBEdit12: TDBEdit; GroupBox2: TGroupBox; Label20: TLabel; Label21: TLabel; Label22: TLabel; Label23: TLabel; DBEdit14: TDBEdit; DBEdit15: TDBEdit; DBEdit16: TDBEdit; DBEdit17: TDBEdit; DBGrid2: TDBGrid; DataSource2: TDataSource; ADOTable2: TADOTable; Label19: TLabel; DBEdit13: TDBEdit; Label26: TLabel; DBEdit19: TDBEdit; DBNavigator2: TDBNavigator; GroupBox4: TGroupBox; INGRESOS: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Isalario: TDBEdit; Idividendo: TDBEdit; Ibienrais: TDBEdit; Inegocio: TDBEdit; Iinteres: TDBEdit; Itotal: TDBEdit; BI1: TBitBtn; BI2: TBitBtn; BI3: TBitBtn; BI4: TBitBtn; BI5: TBitBtn; EGRESOS: TGroupBox; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label24: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit18: TDBEdit; BE1: TBitBtn; BE2: TBitBtn; BE3: TBitBtn; BE4: TBitBtn; BE5: TBitBtn; BE6: TBitBtn; BE7: TBitBtn; GroupBox3: TGroupBox; DataSource1: TDataSource; ADOTable1: TADOTable; XPManifest1: TXPManifest; Label25: TLabel; DBEdit20: TDBEdit; BA1: TBitBtn; BA2: TBitBtn; BA3: TBitBtn; BA4: TBitBtn; BO1: TBitBtn; BO2: TBitBtn; BO3: TBitBtn; BO4: TBitBtn; BO5: TBitBtn; BO6: TBitBtn; BO7: TBitBtn; Edit1form1: TEdit; DBNavigator3: TDBNavigator; DBComboBox1: TDBComboBox; Label27: TLabel; procedure BI1Click(Sender: TObject); procedure BI2Click(Sender: TObject); private { Private declarations } Fc, Fd: Integer; public { Public declarations } Property C: Integer Read Fc Write Fc; Property D: Integer Read Fd Write Fd; end; var Form1: TForm1; A,B: String; implementation {$R *.dfm} uses ventana1; procedure TForm1.BI1Click(Sender: TObject); begin Form1.C:=1; // boton 1 if Form2.ShowModal=mrok then edit1form1.Text:=Form2.A; end; end. --------------------------------FORM 2 unit ventana1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DB, ADODB, Mask, DBCtrls; type TForm2 = class(TForm) Edit1form2: TEdit; BitBtn1: TBitBtn; Gsalarios: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DataSource1: TDataSource; ADOTable1: TADOTable; Label11: TLabel; DBEdit11: TDBEdit; Gdividendo: TGroupBox; procedure BitBtn1Click(Sender: TObject); private { Private declarations } Fa, Fb: String; public { Public declarations } Property A: String Read Fa Write Fa; Property B: String Read Fb Write Fb; end; var Form2: TForm2; C,D: Integer; implementation uses MainProgramFPv1; {$R *.dfm} procedure TForm2.BitBtn1Click(Sender: TObject); begin A:=Edit1form2.Text; end; begin if Form1.C = 1 then // aqui me muestra el error de excepcion nose que.. y se muere// Form2.label2.Visible := true; end. -------------------------- Gracias Oscar. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Imposible hacer visible un form desde otro form | SMTZ | .NET | 13 | 16-01-2006 21:41:08 |
Asignación de valores a variables | BlueSteel | Varios | 1 | 19-01-2005 15:04:15 |
Pasar variables del form al script php | vecino | PHP | 9 | 07-03-2004 22:59:05 |
Pasar información de un form a otro | davidgaldo | Varios | 3 | 10-02-2004 19:00:34 |
Traspasar valores de un form a otro por parametros | andre | Varios | 3 | 05-06-2003 22:44:16 |
|