splitter问题 我放一个panel,altop,再放一个splitter,altop,怎么控制splitter移动位置,不让它,超出panel的top,我用splitter.top判断,怎么不行啊?能不能指点一下?// 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 “超出panel的top”是什么意思?如果放一个panel,altop。那么panel的top就一直为0,怎么样可以超过。如果你的意思是要保证panel的高度不小于某个值的化,可以试一下:procedure TForm1.Splitter1Moved(Sender: TObject);begin if Panel1.Height < 100 then Panel1.Height:=100 ;end; 你大概是这个意思吧:你放panel,splitter,Altop时是按上、中、下或下、中、上的位置放的吧?在你托动splitter时,不希望把panel盖住,对吗?如果是的话,把panel.alian设置为bottom,altop.alain设置为client,然后就可以托动splitter了,而不会盖住任何一个控件 急!!关于3DChart及TeeChart的使用 SQL查询总是"超时,已过期",有什么好办法? 请earwig20002000进来领分!!!!!!!!!!!!1 编程要学数学吗? 在向窗体中添加控件时出现了错误提示。 数据库类型转化兼Query应用,高手请进,散分! 如何让Delphi做的多媒体播放器程序不用指定初始文件而能正常运行? 我在D6下面安装很多控件时,老是出现找不到某某.dcu文件的提示(如DsgnIntf.dcu),那位能告诉我是为什么吗?谢谢了。 类型判断 誰有或那位用過 這樣的控件 !!!!! 高分求解:基于COM的C/S程序中服务器运行失败的问题 自定义Grid组件
如果放一个panel,altop。那么panel的top就一直为0,怎么样可以超过。如果你的意思是要保证panel的高度不小于某个值的化,可以试一下:
procedure TForm1.Splitter1Moved(Sender: TObject);
begin
if Panel1.Height < 100 then Panel1.Height:=100 ;
end;
如果是的话,把panel.alian设置为bottom,altop.alain设置为client,然后就可以托动splitter了,而不会盖住任何一个控件