我已經繼承TScrollWinControl 也試過將height 調整比clientheight 高, 但scrollbar 依然是沒出現.
另外, 使用TScrollWinControl 還要處理哪些事件或message 來回應scrolling 的動作呢.
其實我是想做一個可以scrolling 的類似paintbox 的component

編輯記錄

你要裡面的東東，比外面大，才會有 scroll bar
或是你指的是
<basefont></basefont><basefont></basefont>Represents the vertical scroll bar for the scrolling windowed
control. Class TScrollingWinControl
Syntax [Delphi] property VertScrollBar:
TControlScrollBar read FVertScrollBar write
SetVertScrollBa

Description Use
VertScrollBar to hide, show, or manipulate the vertical scroll bar for the
scrolling windowed control. Related Information TScrollingWinControl.AutoScroll
TScrollingWinControl.HorzScrollBar


===================引 用 Lordaeron 文 章===================
我已經繼承TScrollWinControl 也試過將height 調整比clientheight 高, 但scrollbar 依然是沒出現.
另外, 使用TScrollWinControl 還要處理哪些事件或message 來回應scrolling 的動作呢.
其實我是想做一個可以scrolling 的類似paintbox 的component

不一定要用TScrollWinControl, 繼承TCustomControl也可以. 要override CreateParams

[code delphi]procedure TmyControl.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
if FScrollBars in [ssVertical, ssBoth] then Style := Style or WS_VSCROLL;
if FScrollBars in [ssHorizontal, ssBoth] then Style := Style or WS_HSCROLL;
end;
end;[/code]要處理的messages有

[code delphi]
procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;
[/code]

可有sample code 可參考嗎?
例如delphi 的source 或其它現成的open source component 也可以.
我照著加到我的tabsheet 中, 也將height 加高超過了clientheight 了, 但scrollbar 依然是沒出現.
我想做的是可以設定高度比clienheight 高, 而它的scrollbar 會出現, 簡單的講就有點像我在scrollbox 中放一個paintbox 一樣.
只是我不想放三個component 搞得哪麼麻煩, 我只要畫在canvas 上.
謝謝

編輯記錄

<iframe width="100%" height="100%" frameborder="0" src="void(0)" 222px;"></iframe>請看tStringGrid的代碼