フォームに TSplitter と 2 つの panel を配置しました。プログラムを実行すると、これらのパネル間でスプリッターを使用して 2 つのパネルのサイズを移動できます。
ソースコードでスプリッターを移動したいのですが、すべての試行が失敗しました
procedure ChangeGUILayout (....);
var
aNewValue : Integer;
begin
MySpliiter.left := aNewValue;
....
フォームに TSplitter と 2 つの panel を配置しました。プログラムを実行すると、これらのパネル間でスプリッターを使用して 2 つのパネルのサイズを移動できます。
ソースコードでスプリッターを移動したいのですが、すべての試行が失敗しました
procedure ChangeGUILayout (....);
var
aNewValue : Integer;
begin
MySpliiter.left := aNewValue;
....