窗口融合技术
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;
浙公网安备 33010602011771号