Disable resize of a control during design time.

[CM630]

I have a TCustomControl which shall not be resizeable.

I have the Height and Width properties disabled with the code below.

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

1. procedure Register;
2. begin
3.   RegisterPropertyEditor(TypeInfo(integer), TWGCursorPlacers, 'Width', THiddenPropertyEditor);
4.   RegisterPropertyEditor(TypeInfo(integer), TWGCursorPlacers, 'Height', THiddenPropertyEditor);
5.  
6.  
7.   RegisterComponents('Instrumentation',[TWGCursorPlacers]);
8. end;  
9.  

But during design time the control can be resized by the mouse. It is not a great issue, but it is still annoying.
Could anyone propose a good way to disable resizin (by the mouse) during design time?

[Thaddy]

Disconnect OnResize for the control? i.e. set it to nil in your designer.

[CM630]

It occurred that OnResize := nil; destroys the event once and forever, but it does not prevent resizing.
That is what works for me:

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

1.   TWGCursorPlacers = class(TCustomControl)
2.   private
3. ...
4.     procedure SetOnResize (Sender: TObject);  
5. ...
6. constructor TWGCursorPlacers.Create(AOwner: TComponent);
7. begin
8.   inherited;
9.   ...
10.   OnResize := @SetOnResize;
11.   ...
12. end;
13.  
14.  
15. procedure TWGCursorPlacers.SetOnResize (Sender: TObject);
16. begin
17.   //FWidth and Fheight are constants
18.   Width := FWidth;
19.   Height := FHeight;  
20. end;

EDIT: There occurred to be some abnormalities when anchoring.