TSplitter按源代码移动

Question

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

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

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


  begin

  MySpliiter.left := aNewValue;

  ....

Answer 1

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

例如，假设您有两个面板。 Panel1为alLeft，Panel2为alClient。在你之间你有一个分离器。那你想要

Panel1.Width := aNewValue;