TSplitter按源代码移动

Question

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

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

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


  begin

  MySpliiter.left := aNewValue;

  ....

Answer 1

你不应该捣乱分离器,而是使用对齐且固定大小的控件.

例如,假设您有两个面板.Panel1是alLeft和Panel2是alClient.在你之间你有一个分离器.然后你想要

Panel1.Width := aNewValue;