Ayuda con Error al querer Abrir Formulario
 

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

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.

lo hago en el show.

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

Hola.

Entonces el código que habría que mirar es el de la creación de FrmToma.

Saludos.

Gracias por Constestar
 

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

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.

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

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;

inentar desactivar todo el codigo :-(

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

Hola.

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

Saludos. :)