检测窗体的滚动条是否在mdi子项中可见

Question

我无法检测窗体的滚动条是否可见。 谷歌互联网显示，下面的代码应该工作。每个人都使用它：

​​

我这样称呼它：

procedure TFrmBaser.Button1Click(Sender: TObject); 
begin 
if VertScrollBarVisible(MainForm.Handle) 
then Caption:= 'visible'; 
end; 

返回false所有的时间，甚至是滚动条是可见的。它们可以通过一些MDI子窗体显示出来，我拖出一些屏幕。

---

德尔福7，Win XP的SP3，在

Answer 1

这

返回false所有的时间，甚至是滚动条是可见的。它们可以通过一些MDI子窗体显示出来，我拖出一些屏幕。

显示您遇到问题的表单是MDI父表单（FormStyle是fsMDIForm）。

MDI父窗体与常规窗体的不同之处在于它们创建了一个特殊的客户窗口，它填充窗体的整个客户区，并管理MDI子窗口/窗体。 MDI客户端窗口永远不会比其父窗口的客户区大，所以父窗体将永远不会显示滚动条。这就解释了你的问题中的代码总是返回false。

您看到的滚动条是MDI客户端窗口的一部分。修改代码以检查客户端窗口的窗口风格，其手柄可以与MDI父窗体的ClientHandle属性来访问：

procedure TFrmBaser.Button1Click(Sender: TObject); 
begin 
    if VertScrollBarVisible(MainForm.ClientHandle) then 
    Caption := 'visible'; 
end; 

有关MDI在Windows的API级别的详细信息，请参阅About the Multiple Document Interface MSDN上。

Answer 2

主题试试这个：

function VertScrollBarVisible(Form : TForm) : Boolean; 
    begin 
    Result:=(Form.Width-Form.ClientWidth>10) 
    end; 

我不知道，如果它的工作原理，但它比较形式的 “可用” 的宽度与窗体的“总”宽度相比（通常它们在彼此的2-3像素范围内，但使用滚动条时，可用宽度应该明显更低）。