abchjb

导航

窗口融合技术

1、建立主窗体(mainform),属性:BORDERICONS[BISYSTEMMENU,BIMINIMIZE,BIMAXIMIZE],
               FORMSTYLE[FSNORMAL]
               WINDOWSTATE[WSMAXIMIZED]
  加入BUTTON1、PANEL1控件,PANEL1属性:ALIGN[ALCLIENT]
                        AUTOSIZE[TRUE]
                        DOCKSITE[TRUE]
                        DRAGKIND[DKDOCK]
2、建立子窗体(form1),设置属性:USEDOCKMANAGER[TRUE]
                        DRAGKIND[DKDOCK]
                        DRAGMODE[DMAUTOMATIC]
3、调用子窗体(form1)代码:
 PROCEDURE TMAINFORM.BUTTON1CLICK(SENDER:TOBJECT);
 BEGIN
   TRY
    FORM1:=TFORM1.CREATE(APPLICATION);
    form1.visible:=true;
    FORM1.show;
    FORM1.MANUALDOCK(PANEL1,NIL,ALCLIENT)
   EXCEPT
    MESSAGEBOX(0,'子窗口创建错误','产生严重例外错误',mb_ok+mb_iconstop);
 end;
end;

posted on 2004-04-02 08:24  忘我  阅读(434)  评论(0)    收藏  举报