Javi Posted May 10, 2012 Share Posted May 10, 2012 Hi Farshad I'm making a new component. unit UniEditText; interface uses SysUtils, Classes, Controls, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniEdit, uniDBEdit, uniGUIBaseClasses, uniMultiItem, uniComboBox, uniDBComboBox, uniDBLookupComboBox, uniGUIClientEvents, uniGUIFont, UniPanel, DBCtrls, uniLabel, Graphics, Dialogs; type TUniEditText = class(TUniPanel) public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published end; procedure Register; implementation procedure Register; begin RegisterComponents('Unigui Componentes', [TUniEditText]); end; { TUniEditText } constructor TUniEditText.Create(AOwner: TComponent); var LookUp: TuniDBLookupComboBox; Edit: TUniDBEdit; begin inherited Create(AOwner); // EDIT Edit:=TUniDBEdit.Create(self); Edit.Width:=100; Edit.Align := alBottom; Edit.Parent := Self; Edit.Color := clwhite; InsertControl(Edit); // LookUpcombo LookUp:=TuniDBLookupComboBox.Create(self); LookUp.Width:=100; LookUp.Align := alLeft; LookUp.Parent := Self; // <<=== ERROR: Control '' has no parent window LookUp.Color := clwhite; InsertControl(LookUp); end; destructor TUniEditText.Destroy; begin inherited Destroy; end; end. I compile and install the new component without problems. But when I insert the new component within a TUniForm (at design time), it generates the following error: Control '' has no parent window [5028144A]{vcl150.bpl } Controls.TWinControl.CreateWnd (Line 9170, "Controls.pas" + 13) + $3B [5025BA9B]{vcl150.bpl } Graphics.TResourceManager.AssignResource (Line 1888, "Graphics.pas" + 17) + $D [16A6E8C9]{uniGUI15.bpl} Uniguiclasses.TUniControl.CreateWnd + $9 [5028191A]{vcl150.bpl } Controls.TWinControl.CreateHandle (Line 9340, "Controls.pas" + 3) + $4 [502856F8]{vcl150.bpl } Controls.TWinControl.HandleNeeded (Line 11874, "Controls.pas" + 4) + $4 [502856EF]{vcl150.bpl } Controls.TWinControl.HandleNeeded (Line 11873, "Controls.pas" + 3) + $7 [50285705]{vcl150.bpl } Controls.TWinControl.GetHandle (Line 11880, "Controls.pas" + 1) + $2 [50281326]{vcl150.bpl } Controls.TWinControl.CreateParams (Line 9085, "Controls.pas" + 22) + $2 [50E16CCA]{vcldb150.bpl} DBCtrls.TDBLookupComboBox.CreateParams (Line 5365, "DBCtrls.pas" + 1) + $4 [50E1503B]{vcldb150.bpl} DBCtrls.TDBLookupControl.GetBorderSize (Line 4535, "DBCtrls.pas" + 1) + $6 [50E178A7]{vcldb150.bpl} DBCtrls.TDBLookupComboBox.SetBounds (Line 5640, "DBCtrls.pas" + 1) + $13 [16A675EE]{uniGUI15.bpl} Uniguibaseclasses.TUniBaseControl.SetParent + $21E [16A6EBC6]{uniGUI15.bpl} Uniguiclasses.TUniControl.SetParent + $AA [23B72124]{UniJavi.bpl } Uniedittext.Finalization + $18 [21B9B4C7]{delphicoreide150.bpl} CompPalMgr.TComponentPalettePageItemDelegate.CreateComponent (Line 2564, "CompPalMgr.pas" + 2) + $7 [21079D8A]{designide150.bpl} ComponentDesigner.TComponentRoot.DoCreateComponent (Line 2322, "ComponentDesigner.pas" + 10) + $17 [2107F022]{designide150.bpl} ComponentDesigner.TComponentRoot.CreateCurrentComponent (Line 4384, "ComponentDesigner.pas" + 2) + $32 [2109636E]{designide150.bpl} Surface.TDesignSurface.CreateItem (Line 187, "Surface.pas" + 1) + $11 [2104E6BE]{designide150.bpl} Designer.TDesigner.DoDragCreate (Line 764, "Designer.pas" + 1) + $F [2104EE98]{designide150.bpl} Designer.TDesigner.DragEnd (Line 928, "Designer.pas" + 19) + $3 [21051474]{designide150.bpl} Designer.TDesigner.MouseUp (Line 1710, "Designer.pas" + 1) + $2 [51B1CCA1]{vcldesigner150.bpl} VCLSurface.MouseEvent (Line 2908, "VCLSurface.pas" + 45) + $11 [5003AC1B]{rtl150.bpl } System.TMonitor.Exit (Line 12537, "System.pas" + 2) + $7 [51B1D87B]{vcldesigner150.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3169, "VCLSurface.pas" + 48) + $6 [5003A336]{rtl150.bpl } System.@IsClass (Line 11370, "System.pas" + 1) + $8 [5027DCDB]{vcl150.bpl } Controls.TControl.WndProc (Line 6987, "Controls.pas" + 4) + $21 [502820C3]{vcl150.bpl } Controls.TWinControl.IsControlMouseMsg (Line 9608, "Controls.pas" + 1) + $9 [50282830]{vcl150.bpl } Controls.TWinControl.WndProc (Line 9831, "Controls.pas" + 144) + $6 [5034FB28]{vcl150.bpl } Forms.TCustomForm.WndProc (Line 3961, "Forms.pas" + 191) + $5 [50281ED0]{vcl150.bpl } Controls.TWinControl.MainWndProc (Line 9552, "Controls.pas" + 3) + $6 [500AFA64]{rtl150.bpl } Classes.StdWndProc (Line 13491, "Classes.pas" + 8) + $0 [50358AF7]{vcl150.bpl } Forms.TApplication.ProcessMessage (Line 9760, "Forms.pas" + 23) + $1 [50358B3A]{vcl150.bpl } Forms.TApplication.HandleMessage (Line 9790, "Forms.pas" + 1) + $4 [50358E65]{vcl150.bpl } Forms.TApplication.Run (Line 9927, "Forms.pas" + 26) + $3 If I believe the component without TuniDBLookupComboBox, everything works fine. Thanks JAvi Link to comment Share on other sites More sharing options...
Administrators Farshad Mohajeri Posted May 11, 2012 Administrators Share Posted May 11, 2012 Logged #1346 Link to comment Share on other sites More sharing options...
Javi Posted June 4, 2012 Author Share Posted June 4, 2012 Logged #1346 Hi Farshad While you solve this issue. Can you tell me how to add the component DBLookUpComboBox, without causing the error? Thank you. Link to comment Share on other sites More sharing options...
Administrators Farshad Mohajeri Posted June 4, 2012 Administrators Share Posted June 4, 2012 Hi Farshad While you solve this issue. Can you tell me how to add the component DBLookUpComboBox, without causing the error? Thank you. Unfortunately I couldn't find a workaround for this. It becomes complicated when DBLookupComboBox is wrapped inside another uniControl. I'm investigating the issue. Link to comment Share on other sites More sharing options...
Javi Posted June 4, 2012 Author Share Posted June 4, 2012 Unfortunately I couldn't find a workaround for this. It becomes complicated when DBLookupComboBox is wrapped inside another uniControl. I'm investigating the issue. Thank you. I will wait, then. Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now