屏幕窗体切换时出现系统背景(闪了一下)
如何解决?
procedure TForm3.pricesClick(Sender: TObject);
var i,j:integer;
begin
  fxxtl.show;
  //xxtl panel contrl
  fxxtl.xxtlfrist.Picture.LoadFromFile('..\PICTURE\XXTL\fristpicture\jiage.jpg');
  fxxtl.Pprice.DoubleBuffered:=true;
  fxxtl.pfrist.Visible:=true;
  fxxtl.Pprice.Visible:=true;
  fxxtl.chengche.Visible:=false;
  fxxtl.renwu.Visible:=false;
  fxxtl.zaochen.Visible:=false;
  fxxtl.zaocan.Visible:=false;
  fxxtl.zoo.Visible:=false;
  fxxtl.time.Visible:=false;
  fxxtl.riqi.Visible:=false;
  fxxtl.home.Visible:=false;
  fxxtl.didian.Visible:=false;
  //data
  datamodule1.ADOQuery1.Close;
  datamodule1.ADOQuery1.SQL.Clear;
  datamodule1.ADOQuery1.SQL.Add('select * from xxtl where type="b"');
  datamodule1.ADOQuery1.Active:=true;
  fxxtl.questioncount:=datamodule1.ADOQuery1.RecordCount;
  fxxtl.trueanswer:=true;
  for i:=0 to 11 do
    begin
      fxxtl.questiona[i]:=0;
      fxxtl.questionb[i]:=0;    end;
    with fxxtl do
    begin
      for i:=0 to 11 do    //开始判断
      begin
        while questiona[i]=0 do
        questiona[i]:=random(fxxtl.questioncount+1);
        for j:=0 to 10 do
          begin
            while questiona[i]=questionb[j] do
            begin
             questiona[i]:=random(fxxtl.questioncount+1);
            end;
          end;
        questionb[i]:=questiona[i];
      end;
       //随机数已存于数组a中  bwzts1.Visible:=true;
  bwzts2.Visible:=false;
  bwzts3.Visible:=false;
  bztyc1.Visible:=true;
  bztyc2.Visible:=false;
  bztyc3.Visible:=false;
  bhome1.Visible:=true;
  bhome2.Visible:=false;
  bhome3.Visible:=false;
  end;
  fxxtl.xxtltime.Enabled:=true;
  fxxtl.show;
  form3.Hide;end;