delphi - 如何将自定义控件的子控件限制在某个区域？

Question

我有一个基于 TPanel 的自定义控件，它有一个内部面板，用于定义我的组件的工作区域和一个带有“最小化/恢复”按钮的外部区域，用于隐藏和显示(内部)面板。

如果我在设计时将一个组件放在我的控件上并设置它的 Align属性(property)到alClient ，使用外面板的大小，并且不再显示最小化按钮。

如何在面板上对齐或放置组件以强制它们(留在)内面板区域内？

Answer 1

将按钮放在一个自己的面板上，该面板不会接受其他控件并将其保留在前面，但缺点是其他控件可能会被覆盖。

procedure THidePanel.AdjustClientRect(var Rect: TRect);
begin
  inherited;
  FPanel.BringToFront;
end;

constructor THidePanel.create(AOwner: TComponent);
begin
  inherited;
  FPanel := TPanel.Create(self);
  FPanel.Align := alright;
  FPanel.Parent := self;
  FPanel.BevelOuter := bvNone;
  FPanel.Width := 30;
  FButton:=TSpeedButton.Create(self);
  FButton.Parent := FPanel;
  FPanel.ControlStyle := FPanel.ControlStyle - [csAcceptsControls];
end;