子窗体为什么不显示？

Question

procedure TFrmMain.mmiStorageClick(Sender: TObject);
var
  FrmStorage: TFrmStorage;
begin
  if not Assigned(FrmStorage) then
    FrmStorage:= TFrmStorage.Create(Application);
  FrmStorage.Show;
end;
 为什么不显示该子窗体？

Answer 1

TFrmStorage是什么东东？自定义的窗口？

Answer 2

不要 assigned
直接
Application.CreateForm(TFrmStorage,FrmStorage);
FrmStorage。show;

Answer 3

var
  FrmStorage: TFrmStorage;
begin
  frmStorage:= TFrmStorage.Create(Application);
  FrmStorage.Showmodule;//在这儿如果是自动创建的窗体直接show就可以了,如果属于手动创建改为showmodule;
end;