使用suipack控件包中的suiform的问题（小问题，请帮忙）

Question

在form中放一个suiform，就可以把界面变成漂亮的mac风格了。
可是我在suiform中的控件超出边界时，为什么他没有滚动条？直接用delphi的form时都是当控件超出边界时自动加了滚动条的啊？是我设置不对还是suiform的bug？

Answer 1

怎么去控制suiFORM的标题按钮，让他们不能使窗体最大最小化呢？

Answer 2

把titlebar属性设置一下就可以了。

Answer 3

if not (csDesigning in ComponentState) then
    begin
        if (m_Form.FormStyle <> fsMDIChild) and (m_Form.FormStyle <> fsMDIForm) then
            m_Form.BorderStyle := bsNone;        m_Form.AutoScroll := false;    //关键代码        m_PrevParentWndProc := Pointer(GetWindowLong(TForm(Owner).Handle, GWL_WNDPROC));
        P := MakeObjectInstance(NewParentWndProc);
        SetWindowLong(TForm(AOwner).Handle, GWL_WNDPROC, LongInt(P));
        SetWindowLong(m_Form.Handle, GWL_STYLE, GETWINDOWLONG(m_Form.Handle, GWL_STYLE) and (not WS_CAPTION));        if not Assigned(Application.OnMessage) then
        begin
            m_AppOnMsgAssigned := true;
            Application.OnMessage := OnApplicationMessage;
        end;
    end
suiForm把form的scroll给禁止掉了。