但还是不能退出FROM,这是为什么?
procedure Tfrm11.FormShow(Sender: TObject);
begin
if (copy(uppercase(trim(CurrentParam.username)),1,3)<>'USER1' ) then
begin
showmessage('对不起,你无权使用此功能);
frmpoiss1.Close;
end ;
end ;
procedure Tfrm11.FormShow(Sender: TObject);
begin
if (copy(uppercase(trim(CurrentParam.username)),1,3)<>'USER1' ) then
begin
showmessage('对不起,你无权使用此功能);
frmpoiss1.Close;
end ;
end ;
必须用
postmessage(handle, wm_close, 0, 0);
然后再close里写
procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
begin
action := cafree;
end;procedure Tywtj.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
ywtj := nil// ywtj 窗体名
end;