关键这个Tform类,应该弄成哪个类呢?每个窗体的类都不一样,如何能通用?
procedure OpenFrm(Frm: TForm);
begin
if not Assigned(Frm) then
Frm.Show;
end;
procedure TForm2.btn1Click(Sender: TObject);
begin
OpenFrm(Form3);
end;
procedure OpenFrm(Frm: TForm);
begin
if not Assigned(Frm) then
Frm.Show;
end;
procedure TForm2.btn1Click(Sender: TObject);
begin
OpenFrm(Form3);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货