2013-02-23 47 views
1

在我的表單上放置了一個TSplitter和兩個面板。運行程序我可以使用這些面板之間的分離器移動2個面板的大小。TSlitter by Source code move

我想通過我的源代碼,以移動分割,但我所有的attemps失敗

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


    begin 

    MySpliiter.left := aNewValue; 

    .... 

回答

10

您shoudn't亂用分離器,但與被定位固定大小的控制。

例如,假設您有兩個面板。 Panel1alLeftPanel2alClient。在你之間有一個分離器。那麼你想

Panel1.Width := aNewValue; 
+5

+1它不是太多,你不應該混淆拆分器,更多的是你不能通過代碼輕鬆操縱拆分器的位置。你必須這樣做的方式是假冒鼠標移動消息!因此,請執行分離器本身的操作,並修改分離器管理的控件的邊界。 – 2013-02-23 16:32:39