关于PageControl的右边的滚动箭头的问题！(200分)

请问，如何判断PageControl右边的滚动箭头出现了。

因为我的tabsheet是动态产生的，当tabsheet数量很少的时候，
那个滚动箭头是不出现的，只有当数量很多的时候，才出现滚动箭头，
所以我想要判断那个滚动箭头出现了还是没有出现。

而且我无法知道tabsheet产生到那个数量才出现滚动箭头的。

用一个笨方法实现：
function CheckPageControlScroll(Sender: TObject): Boolean;
begin
Result:=False;

if (Sender as TPageControl).MultiLine then exit;

if (Sender as TPageControl).PageCount<2 then exit;

(Sender as TPageControl).MultiLine:=True;

if (Sender as TPageControl).RowCount>1 then
Result:=True;

(Sender as TPageControl).MultiLine:=False;
end;

楼上的方法不行啊！快帮助我吧！

to:ilovedelphi3
不可能不行，我测试过的。

procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckPageControlScroll(PageControl1) then
MessageBox(Handle,'PageControl1 出现滚动箭头。','测试框',MB_OK+MB_ICONINFORMATION)
else
MessageBox(Handle,'PageControl1 没有出现滚动箭头！','测试框',MB_OK+MB_ICONINFORMATION);
end;

thank!