子窗体弹出的问题，为什么assign不行？？/急！！

Question

我先建立两个普通的form
然后将其改为fsmdifrm,fsmidchild,
想调出childfrm时，如果已经存在则setforcus 可是却
总是建立新的？

Answer 1

options->forms->将Child设为Available forms

Answer 2

要看你代码才知道哪的问题了
if frmChild <> nil then
  frmChild.SetFocus
else
  begin
    frmChild := TfrmChild.Create(Self);
    frmChild.Show;
  end;

Answer 3

procedure TBomfrm.N7Click(Sender: TObject);
  var
    Bomnewfrm:tbomnewfrm;
begin
 if not assigned then
begin
  Bomnewfrm:=Tbomnewfrm.Create(self);
  Bomnewfrm.ShowModal
end
 else
  Bomnewfrm.setfocusend;end.

Answer 4

if frmChild <> nil then''''这句报错阿！（如果还没有创建，这样子不行啊）？？？？？
  frmChild.SetFocus
else
  begin
    frmChild := TfrmChild.Create(Self);
    frmChild.Show;
  end;

Answer 5

var
    Bomnewfrm:tbomnewfrm;怎么是局部變量?
那if assigned(Bomnewfrm)不是沒意義?

Answer 6

var
    Bomnewfrm:tbomnewfrm;去掉