var
Founded:Boolean;
i:integer;
begin
Founded:=False;
for i:=MDIChildCount-1 downto 0 do
if MDIChildren[i].ClassName='TForm_Query' then
begin
MDIChildren[i].show ;
Founded:=True;
break;
end;
if Not Founded then
begin
Form_Query:=TForm_Query.Create(application);
Form_Query.show;
end;
Founded:Boolean;
i:integer;
begin
Founded:=False;
for i:=MDIChildCount-1 downto 0 do
if MDIChildren[i].ClassName='TForm_Query' then
begin
MDIChildren[i].show ;
Founded:=True;
break;
end;
if Not Founded then
begin
Form_Query:=TForm_Query.Create(application);
Form_Query.show;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货