Disable control resizing at design time.

[Hafedh TRIMECHE 1]

Is there a way to disable control resizing at design time?

 

I tried this but Message.Result is always set to 1 (HTCLIENT)

procedure TUFrame.WMNCHitTest(var Message:TWMNCHitTest);
begin
  inherited;
  if Message.Result in [HTLEFT,HTRIGHT,HTBOTTOM,HTBOTTOMRIGHT,HTBOTTOMLEFT,HTTOP,HTTOPRIGHT,HTTOPLEFT] then Message.Result := Windows.HTNOWHERE;
end;

 

Thanks.

[Rollo62 536]

Do you mean something like Anchor ?

[Uwe Raabe 2057]

First there is the Lock Controls feature of the IDE, which prohibits any position or size changes during design for all controls.

 

If we are talking about some specific controls made by yourself and registered in some design time package, you can override CanResize and return False when in design mode.

 

  function CanResize(var NewWidth, NewHeight: Integer): Boolean; override;

...

function TMyControl.CanResize(var NewWidth, NewHeight: Integer): Boolean;
begin
  if csDesigning in CompontentState then
    Result := False
  else
    Result := inherited CanResize(NewWidth, NewHeight);
end;