如何寻找handle? ( 积分: 100 )

我用下面的代码创建了一个scrollbar,如何找到它的handle呀?有没有什么api函数呀?

SIOld.cbSize := SizeOf( SIOld );
SIOld.fMask := SIF_ALL;
GetScrollInfo( Self.Handle, SB_VERT, SIOld );
SINew := SIOld;
SINew.nMin := 0;
SINew.nPage := Self.ClientHeight;
SINew.nMax := TotalHeight;
SINew.nPos := FScrollPosition;
if ( SINew.nMin <> SIOld.nMin ) or
( SINew.nMax <> SIOld.nMax ) or
( SINew.nPage <> SIOld.nPage ) or
( SINew.nPos <> SIOld.nPos ) then
begin
SetScrollInfo( Self.Handle, SB_VERT, SINew, True );
if Integer( SINew.nPage ) > SINew.nMax then
ScrollPosition := SINew.nMin;
Invalidate;
end;

我用下面的代码创建了一个scrollbar,如何找到它的handle呀?有没有什么api函数呀?

SIOld.cbSize := SizeOf( SIOld );
SIOld.fMask := SIF_ALL;
GetScrollInfo( Self.Handle, SB_VERT, SIOld );
SINew := SIOld;
SINew.nMin := 0;
SINew.nPage := Self.ClientHeight;
SINew.nMax := TotalHeight;
SINew.nPos := FScrollPosition;
if ( SINew.nMin <> SIOld.nMin ) or
( SINew.nMax <> SIOld.nMax ) or
( SINew.nPage <> SIOld.nPage ) or
( SINew.nPos <> SIOld.nPos ) then
begin
SetScrollInfo( Self.Handle, SB_VERT, SINew, True );
if Integer( SINew.nPage ) > SINew.nMax then
ScrollPosition := SINew.nMin;
Invalidate;
end;

这个scroolbar是不是没有handle啦?如果没有handle的话,它又是一个什么东西呢?

Self.Handle不就是吗？

不是的!你试一下就知道了!我发现它是没有handle!

没有的,它的窗体寄主就是.

多人接受答案了。