form 在creat 的时候屏幕闪烁一下,请问如何处理找速达3000进销存软件

销售管理软件版1楼: 我在form1中放置了panel1,在form2-creat的时候,将form2.parent:=form1.panel1.
在form1中调用form2的时候,感觉form2在屏幕上先闪一下,然后才能在panel1中正常显示.
请问:如何避免创建form2的时候闪烁一下!

2楼: 先禁用Form1的刷新机制，等Form2加载完成后在恢复刷新既可！
如下截获Window刷新消息：
...
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
...
procedure TForm1.WMPaint(var Message: TWMPaint);
begin
if 现在需要刷新 then
inherited;
end; 如超市管理系统软件

3楼: 请问,如何判断＂现在需要刷新＂!
能否给出详细代码？
我的程序如下
if form2<>nil then
form2.bringtofront
else
begin
form2:=tform2.create(self);
form2.parent:=form1.panel1;
form2.show;
end;

4楼: 视觉上的突现是没法消除的，本来就是从无到有的景像
try
LockWindowUpdate(panel1.handle);
if form2<>nil then
form2.bringtofront
else
begin
form2:=tform2.create(self);
form2.parent:=form1.panel1;
form2.show;
end;
finally
LockWindowUpdate(0);
end;

这样做其实肉眼也看不出太大的区别
但是如果你在当中加个
for i := 0 to 1000 do
begin
form2.visible := false;
form2.visible := true;
end;
的话就能看出明显的不同了