Hola amigos
Estoy tratando de migrar a XE2 un proyecto hecho hace tiempo en Delphi 6. Ahi usaba un formulario que contenía un componente ppReportBase (hecho a partir de ppReport de ReportBuilder), ese formulario era heredado para cada reporte en el proyecto (bueno de esa manera tenia la posibilidad de meter mi código en varias partes de la funcionaliadd de RBuilder).
Bien, eso estuvo bien en Delphi 6 y luego he probado que funciona en Delphi 7, ... hasta Delphi 2007.
Pero en XE2 me dan varios problemas, al parecer algo en la herencia, pienso yo, pero no acierto a adivinar que puede ser. El componente ppReportBase me funciona bien, el solo, pero cuando trabajo con los formularios heredados es el rollo.
Cuando en diseño voy a colocar un ppLabel (en el diseñador de reportes del formulario heredado), por ejemplo me salta el error List out of bounds y curiosamente se crea un ppLabel en el PAS pero no en el DFM y si pincho en Details me sale algo así:
Código:
[500A3234]{rtl160.bpl } System.Classes.TList.Insert (Line 3932, "System.Classes.pas" + 5) + $1
[11EF1E98]{rbRCL1416.bpl} Ppclass.TppBand.AddObject + $84
[11EF5700]{rbRCL1416.bpl} Ppclass.TppComponent.SetBand + $54
[11DDCC80]{rbRCL1416.bpl} Ppctrls.TppCustomText.SetBand + $0
[120D079A]{rbIDE1416.bpl} Ppdesignworkspacecontroller.TppDesignWorkspaceController.AddComponent + $E6
[120D17CA]{rbIDE1416.bpl} Ppdesignworkspacecontroller.TppDesignWorkspaceController.ehWorkspace_MouseUp + $BA
[11CD6627]{rbRTL1416.bpl} Ppmulticast.TppMulticastEvent.Notify + $27
[120BEF56]{rbIDE1416.bpl} Ppdesignerworkspace.TppWorkspace.MouseUp + $4A
[503331A8]{vcl160.bpl } Vcl.Controls.TControl.DoMouseUp (Line 7448, "Vcl.Controls.pas" + 2) + $28
[50333224]{vcl160.bpl } Vcl.Controls.TControl.WMLButtonUp (Line 7461, "Vcl.Controls.pas" + 9) + $6
[50332814]{vcl160.bpl } Vcl.Controls.TControl.WndProc (Line 7204, "Vcl.Controls.pas" + 91) + $6
[121C6660]{rbIDE1416.bpl} Ppsynuedit.TSynEditPlugin + $70
[503369AB]{vcl160.bpl } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9745, "Vcl.Controls.pas" + 1) + $9
[50337163]{vcl160.bpl } Vcl.Controls.TWinControl.WndProc (Line 9976, "Vcl.Controls.pas" + 152) + $6
[503367B8]{vcl160.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9689, "Vcl.Controls.pas" + 3) + $6
[500B5FCC]{rtl160.bpl } System.Classes.MakeObjectInstance (Line 13921, "System.Classes.pas" + 0) + $0
[504524EF]{vcl160.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 10164, "Vcl.Forms.pas" + 23) + $1
[50452532]{vcl160.bpl } Vcl.Forms.TApplication.HandleMessage (Line 10194, "Vcl.Forms.pas" + 1) + $4
[50452865]{vcl160.bpl } Vcl.Forms.TApplication.Run (Line 10331, "Vcl.Forms.pas" + 26) + $3
Les agradecería mucho su ayuda.
lmir