我把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;
代码非常相似,所以写个统一的调度函数比较好,但如何写才最好呢?
请各位高手大哥帮忙解决一下
请看代码:
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;
代码非常相似,所以写个统一的调度函数比较好,但如何写才最好呢?
请各位高手大哥帮忙解决一下
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货