为什么我在FormShow用了close还不能退出FORM?

Question

但还是不能退出FROM，这是为什么？
procedure Tfrm11.FormShow(Sender: TObject);
begin
  if (copy(uppercase(trim(CurrentParam.username)),1,3)<>'USER1' ) then
      begin
       showmessage('对不起，你无权使用此功能);
      frmpoiss1.Close;       
     end  ;
end ;

Answer 1

当然!
必须用
postmessage(handle, wm_close, 0, 0);

Answer 2

你要关闭的Form是不是一个ChildForm？？如果是，需要释放才能关闭。

Answer 3

show 还是那样写
然后再close里写
procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;

Answer 4

procedure Tywtj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;procedure Tywtj.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ywtj := nil// ywtj 窗体名
end;