急!急!不行了,请问怎么解决在动态创建FORM时屏幕闪得厉害的问题?

Question

我和程序主界面是这样的:
 左边TreeView,右边是动随左边动态生成的FORM,
 每次当左边选中一个NOTE(节点)时,我是先关闭原来的FORM,再动态生成新的FORM,
 不过屏幕总是很明显的显了一下,搞的眼睛都是花的,请问是为什么?
   附: FORM的属性:
    borderstye: bsNone;
    position : poDesigned ;  动态生成的语句:   
  if not Assigned(fDealer) then
    fDealer := TfDealer.Create(Panel) ;
  fDealer.Parent := panel ;
  fDealer.BorderStyle := bsNone;
  fDealer.Top := 2;
  fDealer.Left := 2 ;
  fDealer.Show ;
  
//  有人说:fDealer.Update;

Answer 1

试一下：if not Assigned(fDealer) then
    fDealer := TfDealer.Create(Panel) ;
  fDealer.Parent := panel ;
  fDealer.BorderStyle := bsNone;
  fDealer.Top := 2;
  fDealer.Left := 2 ;
  fDealer.hide; //先隐藏
  fDealer.update;  //刷新
  fDealer.Show ;  //显示

Answer 2

创建form之前用LockWindowUpdate(ParentForm.Handle);停止屏幕刷新之后用LockWindowUpdate(0);恢复屏幕刷新。

Answer 3

TO:MichealLee
  我试了一下,还是不行
  
  这是不是与硬件有关?
  但我的电脑配置还行:  赛扬900  256M内存  32M内存的显卡

Answer 4

TO : tonylk(tony) 
  
  我试了一下,还是不行,语句如下:  LockWindowUpdate(Panel.Handle) ;
  if not Assigned(fBar) then
    fBar := TfBar.Create(Panel) ;
  fBar.Parent := panel ;
  fBar.BorderStyle := bsNone;
  fBar.Top := 2;
  fBar.Left := 2 ;
  fBar.Show ;
  LockWindowUpdate(0);我测试了一下,就在执行这条语句时
    fBar := TfBar.Create(Panel) ;
这个fBar在闪.