Problemas con formularios
Publicado por Santiago (15 intervenciones) el 25/09/2003 15:04:18
Tengo el siguiente codigo...
//formulario 1
//ESTE FORMULARIO TIENE UN TEXTBOX
......
procedure form1.Button1Click(sender:tobject);
var
formu2:Tform2;
begin
formu2:=tform2.create(self);
formu2.showmodal;
formu2.free;
end;
....
//en el formu2
...
procedure formu2.button1Click(sender:tobject);
var i:integer;
begin
i:=100;
form1.textbox1.text:=intToStr(i); //AQUI ME DA EL ERROR
close;
end;
.....
La verdad es que no se porque aparece el error cuando quiero pasar el valor de la variable a la caja de texto que esta en el form1.
Agradeceria que me dieran una respuesta de que es lo que estoy haciendo mal y como solucionarlo.
Gracias.
//formulario 1
//ESTE FORMULARIO TIENE UN TEXTBOX
......
procedure form1.Button1Click(sender:tobject);
var
formu2:Tform2;
begin
formu2:=tform2.create(self);
formu2.showmodal;
formu2.free;
end;
....
//en el formu2
...
procedure formu2.button1Click(sender:tobject);
var i:integer;
begin
i:=100;
form1.textbox1.text:=intToStr(i); //AQUI ME DA EL ERROR
close;
end;
.....
La verdad es que no se porque aparece el error cuando quiero pasar el valor de la variable a la caja de texto que esta en el form1.
Agradeceria que me dieran una respuesta de que es lo que estoy haciendo mal y como solucionarlo.
Gracias.
Valora esta pregunta


0