FSplitControl:= GetCaptureControl; {获得窗口中的分隔线对象} if not Fvertical then begin {若为横向分隔线} for I:= 0 to FSplitControl.Parent.ControlCount-1 do {在分隔线所在的控件上搜寻与它相邻的控件} ..
基于8个网页-相关网页
若为横向分隔线
If it is a horizontal dividing line
以上为机器翻译结果，长、整句建议使用 人工翻译 。
应用推荐
模块上移
模块下移
不移动