morfeo21
07-05-2008, 18:46:36
Hola a todos, amigos del foro
Quisiera hacerles una consuta. les explico: Tengo un proyecto que no es MDI; pero opto en algunos formularios que tengo del proyecto a convertirlos en mdichild , para que que no se transpongan detras de la aplicacion .; aues alli todo bien. he creado un visor personalizado de quickreport con mis propias opciones y esta esta definido como mdichild, para poder minimizarlo dentro de mi aplicacion. el detalle es que cuando cierro el visor de quickreport el formulario que le hace el llamado se maximiza, y no se porue razón.
tienen alguna idea de como solucionarlo?. Gracias de antemano .
El formulario que lo invoca tiene este codigo
procedure Tgen010(Owner:TComponent;T_Inventario:TADOConnection);
begin
frTgen010:=TfrTgen010.Create(Owner);
if frTgen010.SetData(T_Inventario) then
Begin
frTgen010.FormStyle:=fsMDIChild;
frTgen010.Show;
End;
end;
cuando llamo al reporte
Procedure TfrTgen010.Imprimir;
begin
lblNombreCia.Caption:=Cia.Razon;
lblruc.Caption:=Cia.Ruc;
TxRCodigo.DataSet:=pT_Inventario;
TXRDescri.DataSet:=pT_Inventario;
QrPEFinacineras.DataSet:=pT_Inventario;
QrPEFinacineras.Preview;
end;
Quisiera hacerles una consuta. les explico: Tengo un proyecto que no es MDI; pero opto en algunos formularios que tengo del proyecto a convertirlos en mdichild , para que que no se transpongan detras de la aplicacion .; aues alli todo bien. he creado un visor personalizado de quickreport con mis propias opciones y esta esta definido como mdichild, para poder minimizarlo dentro de mi aplicacion. el detalle es que cuando cierro el visor de quickreport el formulario que le hace el llamado se maximiza, y no se porue razón.
tienen alguna idea de como solucionarlo?. Gracias de antemano .
El formulario que lo invoca tiene este codigo
procedure Tgen010(Owner:TComponent;T_Inventario:TADOConnection);
begin
frTgen010:=TfrTgen010.Create(Owner);
if frTgen010.SetData(T_Inventario) then
Begin
frTgen010.FormStyle:=fsMDIChild;
frTgen010.Show;
End;
end;
cuando llamo al reporte
Procedure TfrTgen010.Imprimir;
begin
lblNombreCia.Caption:=Cia.Razon;
lblruc.Caption:=Cia.Ruc;
TxRCodigo.DataSet:=pT_Inventario;
TXRDescri.DataSet:=pT_Inventario;
QrPEFinacineras.DataSet:=pT_Inventario;
QrPEFinacineras.Preview;
end;