Ayuda con Error al querer Abrir Formulario

[microbiano]

bien resulta que quiero abrir un formulario de la siguiente manera:

Código Delphi [-]
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]

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]

lo hago en el show.

y en algunos casos lo hago cuando necesito crearlo para validar ciertos datos

[ecfisa]

Hola.

Empezado por microbiano

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]

el codigo que uso es este:

Código Delphi [-]
 with TFrmToma.Create(Self) do
  try
   ShowModal;
  finally
   Free;
  end;

y e options de delphi lo tengo como AvailableForms.

gracias

[ecfisa]

Hola.

A ver si entendí bién, en FrmMenu tenes por ejemplo:

Código Delphi [-]
procedure TFrmMenu.Button1Click(Sender: TObject);
begin
  with TFrmCalle.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

Y en FrmCalle:

Código Delphi [-]
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]

Si el código que de problemas es este:

Código Delphi [-]
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]

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:

Código Delphi [-]
procedure TFrmMenu.FrmTomaClick(Sender: TObject);
begin
 with TFrmToma.Create(Self) do
  try
   ShowModal;
  finally
   Free;
  end;
end;

[microbiano]

inentar desactivar todo el codigo :-(

[microbiano]

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]

Hola.

Volví a leerlo por que hubiera jurado que deciá TFrmCalle... Indudablemente me inventé la 'T' en el primer mensaje.

Saludos.