Component with TGraphicControl and TEdit together

[domasz]

I want a TGraphicControl inside my TEdit and to automatically adapt it's position and size then TEdit's size/position changes.
With my current approach I get "TControl.ChangeBounds loop detected".
Can I do it differently? Change position in a different event?

Code: Pascal  [Select][+][-]

1. uses
2.   Windows, Graphics, Controls, Classes, SysUtils, StdCtrls, ExtCtrls;
3.  
4. type
5.   TEdit = class(StdCtrls.TEdit)
6.   private
7.     Bgg: TGraphicControl;
8.     FLeft, FTop, FWidth, FHeight: Integer;
9.   protected
10.       procedure Resize; override;
11.   public
12.     constructor Create(AOwner: TComponent); override;
13.     destructor Destroy; override;
14.   end;
15.  
16.  
17. implementation
18.  
19.  
20. procedure TEdit.Resize;
21. begin
22.   inherited Resize;
23.  
24.   Bgg.SetBounds(FLeft-2, FTop-2, FWidth+4, FHeight+4);
25.  
26.   Bgg.Canvas.Brush.Color := clRed;
27.   Bgg.Canvas.Rectangle(0,0,FWidth,FHeight);
28. end;
29.  
30. constructor TEdit.Create(AOwner: TComponent);
31. begin
32.   inherited Create(AOwner);
33.  
34.   Bgg := TGraphicControl.Create(Self);
35.   Bgg.Parent := Self;
36. end;
37.  
38. destructor TEdit.Destroy;
39. begin
40.   Bgg.Free;
41.   inherited Destroy;
42. end;

[jamie]

Set the parent of your control to the parent of the EDIT control?

Currently you have it set to the Edit as the parent and your boundaries are incorrect for that.

Looks like you are trying to draw a border around the edit control ?

if a border is all you want then you maybe better off overriding the Paint cycle of the EDIT control and paint on the EDIT's parent.

[Blaazen]

I had the same problems when I was developing ECControls and I forgot how exactly I resolved it. 
I guess I used DoOnChangeBounds method. Try to move resizing code there, if it won't help we can investigate further.

Code: Pascal  [Select][+][-]

1.  TEdit = class(StdCtrls.TEdit)
2.   ...
3.   procedure DoOnChangeBounds; override;

[domasz]

I guess I used DoOnChangeBounds method. Try to move resizing code there, if it won't help we can investigate further.

Thank you but @jamie was right- I set a wrong Parent.

[howardpc]

Has that answered your question?
If not, what do you want your composite control to look like?
Simply a bordered TEdit, or something else such as an edit with text or shapes overlaying it at some position?

[domasz]

Set the parent of your control to the parent of the EDIT control?

Currently you have it set to the Edit as the parent and your boundaries are incorrect for that.

Looks like you are trying to draw a border around the edit control ?

if a border is all you want then you maybe better off overriding the Paint cycle of the EDIT control and paint on the EDIT's parent.

Thank you, Parent was the problem.
For now I just play with border but I want to draw more advanced things. And Paint method is quite hard to support properly for all use cases (focused, selected...).