MDI窗口中增加子窗口是否存在的判断:
if not assigned(frmJobManInfo) then
begin
frmJobManInfo:=TfrmJobManInfo.Create(Application);
frmJobManInfo.Show;
end else
frmJobManInfo.BringToFront;在字窗口的Close中添加:
procedure TfrmJobManInfo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;程序运行时,第一次创建子窗口成功,关闭子窗口再打开时出错!
请大家帮忙!
if not assigned(frmJobManInfo) then
begin
frmJobManInfo:=TfrmJobManInfo.Create(Application);
frmJobManInfo.Show;
end else
frmJobManInfo.BringToFront;在字窗口的Close中添加:
procedure TfrmJobManInfo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;程序运行时,第一次创建子窗口成功,关闭子窗口再打开时出错!
请大家帮忙!
begin
frmJobManInfo:=nil;
end;
必需手动将其设置成nil
必需手动将其设置成nil