我把form2的parent设为form1中的一个panel,为什么form2的标题栏一直是灰色的啊??
请看代码:
procedure TForm1.btn1Click(Sender: TObject);
begin
  if not Assigned(form2) then
  begin
    form2 := TForm2.Create(Application);
    Form2.Parent := pnl1;
  end;
  Form2.WindowState := wsNormal;
  Form2.Show;
end;另外,假如我现在的系统中有20个象form2的窗体,我想写个函数
来统一调度这20个窗体,该如何做呢?
我现在的做法是:
//btn1的click
procedure TForm1.btn1Click(Sender: TObject);
begin
  if not Assigned(form2) then
  begin
    form2 := TForm2.Create(Application);
    Form2.Parent := pnl1;
  end;
  Form2.WindowState := wsNormal;
  Form2.Show;
end;
////btn2的click
procedure TForm1.btn2Click(Sender: TObject);
begin
  if not Assigned(form3) then
  begin
    form3 := TForm3.Create(Application);
    Form3.Parent := pnl1;
  end;
  Form3.WindowState := wsNormal;
  Form3.Show;
end;
代码非常相似,所以写个统一的调度函数比较好,但如何写才最好呢?
请各位高手大哥帮忙解决一下