D
doud
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.WindowRun(FormC: TFormClass;FormF: TForm);
var
i: Integer;
Open_Flag: Boolean
begin
Open_Flag:=false;
for i:=0 to Self.MDIChildCount-1 do begin
if Self.MDIChildren is FormC then begin
Open_Flag:=true
end
end;
if Open_Flag then begin
FormF.WindowState:=wsMaximized;
FormF.Show;
end else begin
FormF:=FormC.Create(Self);
FormF.Show;
end;
end;
以上过程如Open_Flag = true 即执行第二次则 FormF.出错。
目的：MDI中创建某子窗口
是否不能这样操作应如何实现？
var
i: Integer;
Open_Flag: Boolean
begin
Open_Flag:=false;
for i:=0 to Self.MDIChildCount-1 do begin
if Self.MDIChildren is FormC then begin
Open_Flag:=true
end
end;
if Open_Flag then begin
FormF.WindowState:=wsMaximized;
FormF.Show;
end else begin
FormF:=FormC.Create(Self);
FormF.Show;
end;
end;
以上过程如Open_Flag = true 即执行第二次则 FormF.出错。
目的：MDI中创建某子窗口
是否不能这样操作应如何实现？