为什么在窗体融合的时候会有闪烁的情况?(20分)

B

beyzhzj

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在FORM1中的PANEL1融合FORM2,我在FORM1中的一个按钮中写了以下代码:
FORM2.ManualDock(Panel1);
FORM2.show;
每次点击按钮后,窗体FORM2都会在屏幕上闪了好几下后才会停靠在PANEL1中,怎么避免
闪烁的情况呢?再问问怎样使PANEL1可以完全容下FORM2的大小呢?
 
给你一个不闪的.
http://www.tommstudio.com/newclub30/d_viewdownload.asp?type=kongjian&id=691
 
1、建立主窗体(mainform),属性:BORDERICONS[BISYSTEMMENU,BIMINIMIZE,BIMAXIMIZE],
FORMSTYLE[FSNORMAL]
WINDOWSTATE[WSMAXIMIZED]
加入BUTTON1、PANEL1控件,PANEL1属性:ALIGN[ALCLIENT]
AUTOSIZE[TRUE]
do
CKSITE[TRUE]
DRAGKIND[DKDOCK]
2、建立子窗体(form1),设置属性:USEDOCKMANAGER[TRUE]
DRAGKIND[DKDOCK]
DRAGMODE[DMAUTOMATIC]
3、调用子窗体(form1)代码:
PROCEDURE TMAINFORM.BUTTON1CLICK(SENDER:TOBJECT);
begin
TRY
FORM1:=TFORM1.CREATE(APPLICATION);
FOMR1.MANUALDOCK(PANEL1,NIL,ALCLIENT)
EXCEPT
MESSAGEBOX(0,'子窗口创建错误','产生严重例外错误',mb_ok+mb_iconstop);
end;
end;

 
建议使用ABCFormPanel组件
 

Similar threads

I
回复
0
查看
280
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
957
DelphiTeacher的专栏
D
顶部