Ver Mensaje Individual
  #13  
Antiguo 31-08-2012
astrosnik astrosnik is offline
Registrado
NULL
 
Registrado: ago 2012
Posts: 9
Reputación: 0
astrosnik Va por buen camino
Hola de nuevo ecfisa muchas gracias por tu ayuda, el ejemplo tuyo no puedo descargarlo segun el servidor no tengo permisos suficientes aunque este logueado voy a intentar explicarme mejor ruego disculpes si no he sabido hacerme entender.
Mi aplicacion lanza un formulario form4 que es el principal desde ahi con un bitbnt abro el form2 con edits para rellenar mediante el siguiente codigo

Código Delphi [-]
 
procedure TForm4.BitBtn1Click(Sender: TObject);
var
  varform:tform2;
begin
  varform:=tFORM2.Create(form4);
  try
    varform.Showmodal;
  finally
    varform.Free;
  end;


Desde el form2 con otro bitbtn abro el form5 en modal tambien con este codigo
Código Delphi [-]
procedure TForm2.BitBtn1Click(Sender: TObject);
var
  varforms:tform5;
begin
  varforms:=tFORM5.Create(self);
  try
    varforms.Showmodal;
    // aqui creo que es donde falla quizas deberia quitar la propiedad modal al form2 pero no se como
  finally
    varforms.Free;
  end;

En el form5 tengo un bdgrid y ejecuto un query al que asocion el codigo para que rellene los edits del form2.

Si pongo el codigo que me mandaste
Código Delphi [-]
  if not Assigned(Form2) then
    with TForm2.Create(nil) do
    try
      form2.edit2.Text :=form5.adoquery1.fieldbyname('perro').Asstring;
      ShowModal;
    finally
      Free;
    end;


Sigue dando el mismo error access violation at address 004bfd43 in module projrct.exe. read of address 00000370.
Espero haber explicado bien el escenario y los errores que produce gracias otra vez por tu esfuerzo.

Última edición por ecfisa fecha: 31-08-2012 a las 15:44:21. Razón: corregir etiquetas (problema de interfaz mejorada)
Responder Con Cita