檢測窗體的滾動條是否在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像素範圍內，但使用滾動條時，可用寬度應該明顯更低）。