application.CreateForm(TForm2, Form2);
form2.Parent :=form1;
form2.Show ;
我想在前面加一个检测form2窗体是否已经被创建的语句.否则会重复出来多个form2.
但不知道怎么写.请解答.

解决方案 »

  1.   


     if application.FindComponent('Form2')<>nil then
      begin
        application.CreateForm(TForm2, Form2);
        form2.Parent :=form1;
        form2.Show ;
      end;
      

  2.   


     
     if not assigned(Form2) then
     beign
      application.CreateForm(TForm2, Form2); 
      form2.Parent :=form1; 
     end;
     form2.Show ; 
      

  3.   

    if not assigned(Form2) then
      application.CreateForm(TForm2, Form2); 
     form2.Parent :=form1; 
     form2.Show ; 
      

  4.   

    if not assigned(Form2) then 
    如果存在就不创建,如果不存在就创建。
      

  5.   

    if not assigned(Form2) then 
      application.CreateForm(TForm2, Form2); 
    form2.Parent :=form1; 
    form2.Show ;