TSplitter по исходному коду move

Question

В моей форме я разместил TSplitter и две панели. Запуск программы Я могу перемещать размер двух панелей с помощью Splitter между этими панелями.

Я бы хотел, чтобы переместить разделитель мой исходный код, но все мои attemps удалось

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


    begin 

    MySpliiter.left := aNewValue; 

    .... 

Answer 1

Вы shoudn't связывайтесь с разветвителем, но с контролем, который совмещается и фиксированного размера.

Например, скажем, что у вас есть две панели. Panel1 - alLeft и Panel2 - alClient. Между вами есть сплиттер. Тогда вы хотите

Panel1.Width := aNewValue;