Ver la Versión Completa : Ayuda con Error al querer Abrir Formulario
microbiano
26-05-2012, 02:45:59
bien resulta que quiero abrir un formulario de la siguiente manera:
procedure TFrmMenu.btn2Click(Sender: TObject);
begin
with FrmCalle.Create(Self) do
try
ShowModal;
finally
Free;
end;
end;
y me muestra el siguiente error
adjunto archivo.
espero alguien me pueda ayudar de antemano muchas gracias
ecfisa
26-05-2012, 03:43:24
Hola microbiano.
En esas líneas de código no hay ningún error. Por la imágen que adjuntás, el error pareciera producirse en la creación de FrmToma...
¿ Estás creando a FrmToma en el evento OnCreate u OnShow de FrmCalle ?
Saludos.
microbiano
26-05-2012, 03:50:51
lo hago en el show.
y en algunos casos lo hago cuando necesito crearlo para validar ciertos datos
ecfisa
26-05-2012, 03:54:29
Hola.
lo hago en el show.
y en algunos casos lo hago cuando necesito crearlo para validar ciertos datos
Entonces el código que habría que mirar es el de la creación de FrmToma.
Saludos.
microbiano
26-05-2012, 03:59:09
el codigo que uso es este: with TFrmToma.Create(Self) do
try
ShowModal;
finally
Free;
end;
y e options de delphi lo tengo como AvailableForms.
gracias
ecfisa
26-05-2012, 04:24:52
Hola.
A ver si entendí bién, en FrmMenu tenes por ejemplo:
procedure TFrmMenu.Button1Click(Sender: TObject);
begin
with TFrmCalle.Create(Self) do
try
ShowModal;
finally
Free;
end;
end;
Y en FrmCalle:
procedure TFrmCalle.FormShow(Sender: TObject);
begin
with TFrmToma.Create(Self) do
try
ShowModal;
finally
Free;
end;
end;
Y estos dos últimos forms los tenes en Available form.
Si es así, tiene que haber algo más... ese código no generaría error. ¿ Pusiste un break en el evento OnShow como para ver en que línea se produce ?
Saludos.
cloayza
26-05-2012, 04:29:46
Si el código que de problemas es este:
procedure TFrmMenu.btn2Click(Sender: TObject);
begin
with FrmCalle.Create(Self) do
{Deberia ser...}
with TFrmCalle.Create(Self) do
{Otra alternatica...}
frmCalle:=TfrmCalle.Create(Self);
with frmCalle do
try
ShowModal;
finally
Free;
end;
end;
Saludos cordiales
microbiano
26-05-2012, 04:42:33
Gracias Amigo con esa observacion logre quitar un error pero sin embargo persiste, unode ellos el de la imagen en formato png.
y el codigo que uso apra abrir ese form es:
procedure TFrmMenu.FrmTomaClick(Sender: TObject);
begin
with TFrmToma.Create(Self) do
try
ShowModal;
finally
Free;
end;
end;
microbiano
26-05-2012, 04:51:55
inentar desactivar todo el codigo :-(
microbiano
26-05-2012, 05:00:30
jajajajaja nose que paso pero todo el día y la solución simple: jajajajaja yme rio por que digo no puede ser jajajjajajaaja lo unico que hice fue cambiar el nombre del Form
ecfisa
26-05-2012, 05:08:47
Hola.
Volví a leerlo por que hubiera jurado que deciá TFrmCalle... Indudablemente me inventé la 'T' en el primer mensaje. :(
Saludos. :)
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.