如何创建包含组件的拆分器？

Question

我想在两个可调整大小的面板之间放置一些按钮,或者如果可能的话直接放在分离器上.我如何实现他们将与分离器一起移动; 我该如何锚定他们？

编辑:
也许是我忘记提及的最重要的事情.分割器必须与屏幕截图一样宽,按钮应放在它上面; 所以这些按钮现在实际上是"浮动在分离器上".

非常感谢

Answer 1

哟不能自动完成.
手动,您可以在拆分器的OnMoved事件中更改按钮的Left属性.
没有一个好的解决方案(拖动时刻的可视化并不好),但它可以做你需要的结果.你可以解决这个问题,试试ResizeStyle = rsUpdate ; 当您拖动分割器时,按钮也会移动.

procedure TForm1.Splitter1Moved(Sender: TObject);
begin
  SpeedButton1.Left := Splitter1.Left + 40;
  SpeedButton2.Left := Splitter1.Left + 40;
  SpeedButton3.Left := Splitter1.Left + 40;
  SpeedButton4.Left := Splitter1.Left + 40;
end;

在这里您可以查看结果.

问候

Answer 2

这是我的应用程序的截图:

此表单有一个TSplitter位于左侧窗格中树视图右侧的单个表单.分离器的右侧是TPanel包含按钮的.

这是在设计时,您可以看到用虚线绘制的分割器:

诀窍是分割器不包含控件 - 用于使用面板.

因此,使用命名时,您需要将Splitter1替换为面板以包含按钮,并在Panel1和新面板之间添加拆分器.左侧和中间面板与分离器对齐alLeft,右侧手柄面板对齐alClient.组splitter1.autosnap:= false