QualityCentral

Public Report

Report From: Delphi-BCB/IDE/Form Designer [ Add a report in this area ]

Report #: 102368

Status: Closed

Automated Incident Report - Control '' has no parent window.

Project: Delphi

Build #: 16.0.4358.45540

Version: 16.3

Submitted By: Paul Gardner

Report Type: Issue

Date Reported: 1/5/2012 6:17:07 AM

Severity: Extreme corner case

Last Updated: 1/8/2012 4:49:20 PM

Platform: All versions

Internal Tracking #:

Resolution: Cannot Reproduce (Resolution Comments)

Resolved in Build: : None

Duplicate of: None

Voting and Rating

Overall Rating: No Ratings Yet

0.00 out of 5

Total Votes: None

Description

Control '' has no parent window.

Dropped custom control onto form.  Worked in prior Delphi versions

[50335D36]{vcl160.bpl  } Vcl.Controls.TWinControl.CreateWnd (Line 9307, "Vcl.Controls.pas" + 13) + $3B
[208C6840]{coreide160.bpl} StructureView.TBaseStructureViewServices.StructureChanged (Line 694, "StructureView.pas" + 41) + $17
[500431DB]{rtl160.bpl  } System.TInterfacedObject._Release (Line 30127, "System.pas" + 1) + $3
[50352F2F]{vcl160.bpl  } Vcl.StdCtrls.TCustomEdit.CreateWnd (Line 2900, "Vcl.StdCtrls.pas" + 3) + $3
[503A1CCC]{vcl160.bpl  } Vcl.ComCtrls.TCustomRichEdit.CreateWnd (Line 14625, "Vcl.ComCtrls.pas" + 2) + $3
[503361FA]{vcl160.bpl  } Vcl.Controls.TWinControl.CreateHandle (Line 9477, "Vcl.Controls.pas" + 3) + $4
[5033A084]{vcl160.bpl  } Vcl.Controls.TWinControl.HandleNeeded (Line 12024, "Vcl.Controls.pas" + 4) + $4
[5033A091]{vcl160.bpl  } Vcl.Controls.TWinControl.GetHandle (Line 12030, "Vcl.Controls.pas" + 1) + $2
[50352671]{vcl160.bpl  } Vcl.StdCtrls.TCustomEdit.Clear (Line 2673, "Vcl.StdCtrls.pas" + 1) + $0
[503A1BE1]{vcl160.bpl  } Vcl.ComCtrls.TCustomRichEdit.Clear (Line 14568, "Vcl.ComCtrls.pas" + 1) + $2
[1D2AB9AB]{PRGComponents.bpl} PNRichEdit.TPNRichEditStrings.Clear$qqrv (Line 833, "PNRichEdit.pas" + 1) + $8
[500A570F]{rtl160.bpl  } System.Classes.TStrings.Assign (Line 5362, "System.Classes.pas" + 8) + $4
[503A232C]{vcl160.bpl  } Vcl.ComCtrls.TCustomRichEdit.SetRichEditStrings (Line 14838, "Vcl.ComCtrls.pas" + 1) + $A
[1D2AAFA0]{PRGComponents.bpl} PNRichEdit.TPNRichEdit.$bctr$qqrp25System.Classes.TComponent (Line 555, "PNRichEdit.pas" + 7) + $6
[21BAE51B]{delphicoreide160.bpl} CompPalMgr.TComponentPalettePageItemDelegate.CreateComponent (Line 2744, "CompPalMgr.pas" + 2) + $7
[20FEC450]{designide160.bpl} ComponentDesigner.TComponentRoot.DoCreateComponent (Line 2363, "ComponentDesigner.pas" + 12) + $17
[20FF19FA]{designide160.bpl} ComponentDesigner.TComponentRoot.CreateCurrentComponent (Line 4442, "ComponentDesigner.pas" + 2) + $32
[21009846]{designide160.bpl} Surface.TDesignSurface.CreateItem (Line 188, "Surface.pas" + 1) + $11
[20FC036E]{designide160.bpl} Designer.TDesigner.DoDragCreate (Line 772, "Designer.pas" + 1) + $F
[20FC0B54]{designide160.bpl} Designer.TDesigner.DragEnd (Line 938, "Designer.pas" + 19) + $3
[20FC3174]{designide160.bpl} Designer.TDesigner.MouseUp (Line 1720, "Designer.pas" + 1) + $2
[51D5E261]{vcldesigner160.bpl} VCLSurface.MouseEvent (Line 2915, "VCLSurface.pas" + 45) + $11
[5003D24F]{rtl160.bpl  } System.TMonitor.Exit (Line 14614, "System.pas" + 2) + $7
[51D5EE3F]{vcldesigner160.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3176, "VCLSurface.pas" + 48) + $6
[5003C85A]{rtl160.bpl  } System.@IsClass (Line 13351, "System.pas" + 1) + $8
[50332593]{vcl160.bpl  } Vcl.Controls.TControl.WndProc (Line 7117, "Vcl.Controls.pas" + 4) + $21
[503369A3]{vcl160.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9745, "Vcl.Controls.pas" + 1) + $9
[5033715B]{vcl160.bpl  } Vcl.Controls.TWinControl.WndProc (Line 9976, "Vcl.Controls.pas" + 152) + $6
[504494FD]{vcl160.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4344, "Vcl.Forms.pas" + 201) + $5
[503367B0]{vcl160.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9689, "Vcl.Controls.pas" + 3) + $6
[500B6030]{rtl160.bpl  } System.Classes.MakeObjectInstance (Line 13921, "System.Classes.pas" + 0) + $0
[504525E7]{vcl160.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10164, "Vcl.Forms.pas" + 23) + $1
[5045262A]{vcl160.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10194, "Vcl.Forms.pas" + 1) + $4
[5045295D]{vcl160.bpl  } Vcl.Forms.TApplication.Run (Line 10331, "Vcl.Forms.pas" + 26) + $3

Steps to Reproduce:

Dropped custom control onto form. Worked in prior Delphi versions

Workarounds

None

Attachment

Report.zip

Comments

Paul Gardner at 1/5/2012 8:38:19 AM -

Not sure why the automated report submission chose "Delphi.Net" but this is not Prism, it's XE2. The component works fine where it's already on a TForm. I just can't add a new one.

Tomohiro Takahashi at 1/5/2012 5:55:39 PM -

I corrected the fields as Sysop.

Tomohiro Takahashi at 1/5/2012 6:01:47 PM -

> Dropped custom control onto form.
What control do you use?
Does your issue occur only with the custom component?

Developer Tools

Database Tools