2010-06-11 57 views

回答

5

@Philippe,您可以使用ShowScrollBar功能和HorzScrollBar,VertScrollBar化子性質做到這一點。

檢查這個代碼

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    HorzScrollBar.Range := 10000; // set the range to an higher number 
    VertScrollBar.Range := 10000; // set the range to an higher number 
    ShowScrollBar(Handle, SB_BOTH, True); 
end; 
+0

非常感謝你 解決了我的問題 – 2010-06-12 15:25:07

+0

然後請標記爲您的問題的答案。別忘了在所有其他問題上都這樣做。 – 2011-08-10 14:18:26

1

如果設置自動滾屏=真,如果需要的話,他們應該出現。也就是說,如果有任何可視組件被放置在可見客戶區域之外。

如果您沒有任何組件的「屏幕外」,爲什麼需要滾動條顯示?

無論如何,您可以將Horz-/VertScrollBar.Range設置爲大於clientheight/width的任何值,並且它們將顯示出來。

如果您需要其他的滾動條,您可以隨時在表單上放置一個TScrollBar組件。