窗体Show不出来？

Question

procedure TmainFM.renyuanshezhiMENUClick(Sender: TObject);
var
  afm: Trenyuanshezhifm;
begin
  afm:=Trenyuanshezhifm.Create(nil);
  afm.Show;    //我不想ShowModal
  afm.Free;
end;

Answer 1

procedure TmainFM.renyuanshezhiMENUClick(Sender: TObject);
var
  afm: Trenyuanshezhifm;
begin
  afm:=Trenyuanshezhifm.Create(nil);
  afm.Show;    //我不想ShowModal
  afm.Free;//你给Free了还怎么show出来******
end;

Answer 2

已经FREE了，当然显示不出来了！

Answer 3

procedure TmainFM.renyuanshezhiMENUClick(Sender: TObject);
var
  afm: Trenyuanshezhifm;
begin
  afm:=Trenyuanshezhifm.Create(nil);
  afm.Show;    //我不想ShowModal
  afm.Free;
end;arm.free；你本来打开了,但又关闭了,当然不能显示

Answer 4

如果不是自动创建的话 那么
afm:=Trenyuanshezhifm.Create(nil);
  afm.Show就好了

Answer 5

这样
try
begin
  afm:=Trenyuanshezhifm.Create(nil);
  afm.Show;    //我不想ShowModal
end;
__finally
 afm.Free;

Answer 6

arm.free；你本来打开了,但又关闭了,当然不能显示

Answer 7

就是阿，你show以后紧跟着就Free怎么能看到呢，把afm.free去掉试试

Answer 8

show之后的语句会被马上执行，
实际上已经show了，只是你好没来得及看。
free应该在arm的OnClose事件里面写。