Delphi TSplitter通过源代码移动

在我的表格上，我放置了一个TSPLITER和两个面板。运行该程序，我可以使用这些面板之间的拆分器移动两个面板的大小

我想用我的源代码移动拆分器，但我的所有尝试都失败了

  procedure ChangeGUILayout (....);
  var 
  aNewValue : Integer;


  begin

  MySpliiter.left := aNewValue;

  ....

---

您不应该弄乱拆分器，而是使用对齐且大小固定的控件

例如，假设您有两个面板

Panel1

是

alLeft

而

Panel2

是

alClient

。中间有一个拆分器。那你想要什么

Panel1.Width := aNewValue;

---

您不应该弄乱拆分器，而是使用对齐且大小固定的控件

例如，假设您有两个面板

Panel1

是

alLeft

而

Panel2

是

alClient

。中间有一个拆分器。那你想要什么

Panel1.Width := aNewValue;

---

+1与其说您不应该弄乱拆分器，不如说您不能通过代码轻易地操纵拆分器的位置。你要做的就是伪造鼠标移动信息！所以，按照拆分器本身的操作，修改拆分器管理的控件的边界。+1与其说你不应该弄乱拆分器，不如说你不能通过代码轻易地操纵拆分器的位置。你要做的就是伪造鼠标移动信息！因此，执行拆分器本身的操作，并修改拆分器管理的控件的边界。