delphi - TSplitter by Source code move

Question

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

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

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


  begin

  MySpliiter.left := aNewValue;

  ....

Answer 1

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

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

Panel1.Width := aNewValue;