procedure TMainForm.N16Click(Sender: TObject);
var
I,j:Integer;
FindOne:Boolean;
begin
FindOne:=False;
For i:=0 to MDIChildCount-1 do
For j:=0 to ChildFormNum-1 do
if MDIChildRen[i] is TSHXXForm then
begin
FindOne:=True;
SHXXForm.Show;
Break;
end;
if not FindOne then
SHXXFORM:=TSHXXForm.Create(Self);
end;
procedure TMainForm.N63Click(Sender: TObject);
var
i,j:Integer;
FindOne:Boolean;
begin
FindOne:=False;
For i:=0 to MDIChildCount-1 do
For j:=0 to ChildFormNum-1 do
if MDIChildren[i] is THYDJForm then
begin
FindOne:=True;
HYDJForm.Show;
Break;
end;
if not FindOne then
HYDJForm:=THYDJForm.Create(Self);
end;
procedure TMainForm.N64Click(Sender: TObject);
var
i,j:Integer;
FindOne:Boolean;
begin
FindOne:=False;
For i:=0 to MDIChildCount-1 do
For j:=0 to ChildFormNum-1 do
If MDIChildRen[i] is TKHForm then
begin
FindOne:=True;
KHForm.Show;
Break;
end;
If not FindOne then
KHForm:=TkHForm.Create(self);
end;
procedure TMainForm.N65Click(Sender: TObject);
var
i,j:Integer;
FindOne:Boolean;
begin
FindOne:=False;
For i:=0 to MDIChildCount-1 do
For j:=0 to ChildFormNum-1 do
If MDIChildRen[i] is TCDForm then
begin
FindOne:=True;
CDForm.Show;
Break;
end;
If not Findone then
CDForm:=TCDForm.Create(self);
end;
procedure TMainForm.N66Click(Sender: TObject);
var
i,j:integer;
FindOne:Boolean;
begin
FindOne:=false;
For i:=0 to MDIChildCount-1 do
For j:=0 to ChildFormNum-1 do
if MDIChildren[i] is TDLForm then
begin
FindOne:=true;
DLForm.Show;
Break;
end;
if not FindOne then
DLForm:=TDLForm.Create(self);
end;
procedure TMainForm.N19Click(Sender: TObject);
begin
