我放一个panel,altop,再放一个splitter,altop,怎么控制splitter移动位置,不让它,超出panel的top,我用splitter.top判断,怎么不行啊?能不能指点一下?//

解决方案 »

  1.   

    “超出panel的top”是什么意思?
    如果放一个panel,altop。那么panel的top就一直为0,怎么样可以超过。如果你的意思是要保证panel的高度不小于某个值的化,可以试一下:
    procedure TForm1.Splitter1Moved(Sender: TObject);
    begin
      if Panel1.Height < 100 then Panel1.Height:=100 ;
    end;
      

  2.   

    你大概是这个意思吧:你放panel,splitter,Altop时是按上、中、下或下、中、上的位置放的吧?在你托动splitter时,不希望把panel盖住,对吗?
    如果是的话,把panel.alian设置为bottom,altop.alain设置为client,然后就可以托动splitter了,而不会盖住任何一个控件